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ГАЈА DISK vare 
Ne perdez plus votre temps... 
dul@lub 2 x — 
Possesseurs Че KEN-DOS, fini le temps perdu en de fastidieuses manipulations 
lorsque vous voulez mettre de l'ordre dans vos disquettes, fini le temps perdu en 


— cherchant un programme qui зе cache sur une de vos disquettes sans que vous 
Edito 8 ers n°. : EMIL Á q 
— кенже puissiez le retrouver, finis les disgracieux listings de directories ! 












































Toujours fidèles au poste, après un repos bien mérité, nous revoilà fin prets 


(hum s.a) pour affronter la rentrée qui s'annonce dés à présent bien chargée | En effet, le logiciel DISK-WIFE va vous permettre de faire cela en toute simplicité 


et en un temps record. Ce logiciel est divisé en deux parties, la première vous 
permettant de manipuler un DIRECTORY comme bon vous semble, et la deuxième gérant 
un fichier général de vos disquettes. Le tout étant contenu dans une EPROM de 8E se 
logeant sur votre carte KEN-DOS. Et accompagné d'un mode d'emploi détaillé 
(expliquant meme comment reconstruire un directory). 


Avant tout, n'oubliez pas de réserver la journée du samedi 25 octobre 86 dans 
vos agendas ! Date du prochain Meeting que vous nous réclamiez depuis 51 
longtemps. 





Се meeting s'annonce comme étant celui du changement ou de la cohabitation, 
pour employer un mot cher à nos amis frangais. Се meeting ne sera plus 
cansacré exclusivement à notre cher DAI puisque les clubs présenteront leurs 
nouvelles activités qu'ils développent autour d'autres micros, Tous les 
renseignements utiles concernant l'European Micro Meeting vous sant 
communiqués en page 13 (Dernière Minute). 


1. Manipulation du directory 





Le corps principal de cette partie de programme est constitué d'un mini-éditeur 
de directory qui permet d'effectuer, sur chaque programme du dir, n'importe laquelle 
des fonctions du KEN-DOS par le simple appui d'une touche. Vous vous promenez dans 
l'éditeur à l'aide des curseurs. Vous pouvez meme définir. à l'aide de deux repéres, 
des blocs de programme devant subir la meme modification. Si vous voulez, par 
exemple, ‘closer’ tous les programmes de la disquette, il suffit de pointer le premier 
programme du directory ainsi que le dernier, puis d'appuyer sur C et DISK-WIFE fait le 
Une fois encore, nous tenons à remercier toutes les personnes qui directement reste, 
au indirectement nous apportent leur aide dans notre lourde tache et notament 
Werner Fersoons, notre nouveau responsable software. 


Au sommaire de се numéro, nous avons rassemblé de quoi contenter autant les 
fanas du fer à souder que les passionnés de software. 


D'autre part, des commandes supplémentaires ont été ajoutées, tel que le rajout 
La Rédaction. ou la suppression de l'adresse de départ d'un programme en langage machine, ou du 
code de protection d'un programme, Et cela toujours par simple appui sur une touche 
(en plus de l'adresse ou du code à ajouter). 


Outre cet éditeur, DISK-WIFE permet encore de faire deux choses avec le directory 
: en faire une belle impression sur papier (sur 4 colonnes - une par bloc - ou sur une 
seule colonne, mais avec tous les détails nécessaires - meme les codes d'accès) ou une 


Extraordinaire, formidable, incroyable. et utile : "IDC Software" va bientot etre copie de sécurité sur les pistes 1 ou 2, qui sont inutilisées par le système. 


en mesure de vous présenter ип nouveau programme : 
2. Fichier des programmes 





“PC - DAI" 

Ce fichier permet de retrouver, en moins d'une seconde, le ou les noms des 
disquettes contenant un programme recherché. La recherche se fait, selon le nom 
(ou le début de celui-ci), dans un fichier pouvant contenir jusqu'a 640 directorys et 
16640 noms de programme (pour les 2 fois 800 К) ПІ! 


Ce superbe programme, mis au point par М. Didier Boiteau, membre d'IDC 


BORDEAUX, vous permet (tenez-vous bien |) de lister le DIRECTORY au format MS-DOS/IBM 
PC à l'aide de votre DAI... 


Jusque là, c'est pas mal me direz-vous, mais à quoi cela peut-il servir 7 


Les noms de programmes sont insérés automatiquement par DISK-WIFE à partir 
Evidemment, РС-РАЇ, n'est bien sur pas limité à la lecture du DIRECTORY de 


des directorys et пе requièrent donc pas de fastidieuses manipulations. H est possible 


n'importe quelle disquette provenant d'un IBM PC ou compatible. Il permet également 
de TRANSFERER les fichiers textes (ou autres fichiers, par exemple : programme 
BASIC...) de ГІВМ vers le format DAI-KENDOS normal... et vice-versa. Stupéfiant n'est- 
ce-pas ??? Ce programme permettra donc à tout possesseur de KENDOS et d'IBM PC (je 
ne vise personne |) de transférer ses fichiers SANS DEVOIR PASSER par la RS-232 a 
l'aide d'un cable NUL-MODEM. 


Plus de renseignements au sujet de ce programme dans un prochain numéro... 
mais dès à présent, appretez-vous à faire un miracle : rendre le DAI (presque |) 
compatible IBM РС... ou du moins, еп ce qui concerne ses fichiers... pasen се qui 
concerne ses programmes en langage machine... évidemment ЇЇ... mais pourquoi pas 
ses programmes en BASIC ? 


Affaire à suivre donc || Marc Vandermeersch 
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de définir une grille de sélection, de manière a n'insérer que quelques types de 
programmes (basic, arrays, textes,...}. 


De plus, le contenu du fichier peut etre imprimé de trois manières différentes : 
soit en deux colonnes, une reprenant les noms des programmes et la deuxième 
indiquant les noms de leurs disquette d'origines, soit en n'imprimant que les noms 
des programmes, et ce sur 8 colonnes et en caractères condensés, ou encore en 
indiquant uniquement le nom des disquettes traitées. 


DISK-WIFE par Xavier Dreze et IDC Software. 
Prix EPROM comprise : 1500 Fb / 225 Ff 


H An English version (and explanation) is also available !! Bestaat ook in het Nederlands H 
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Certains d'entre vous nous ont demandé le 


Vous les trouverez ci- 


prix des interfaces réalisées au club. 


intégrale 


qu'aucune carte n'est livrée avec 


, mais les prix que 
grouper ensemble. Enfin, deux autres 


étaient qu'indicatifs et ils nous ont 
s, que la réalité dépassait une de 
es prix avantageux sur tel ou tel 


‚tes composants, et la notice de montage. La 
bres de DCA (prix club dans ce cas) et si 


, Comprend la carte entièrement montée et testée. 


our certaines cartes nécessitant un minimum d'habileté dans la soudure ou de 


connaissances électroniques,nous vous conseillons fortement la version 


(dans ce cas, la carte est signalée par ***) А noter 


boitier, 


Prix France : 495 FF (VK), 505 FF (VI) 


Prix club France : 460 FF (VK), 470 FF (VI) 
Prix Europe : 510 FF (VK), 520 FF (VI) 


dessous. Ils vous paraitront peut-etre élévés 
certaines cartes pouvant en effet se re 
ANANUM : Faites l'acquisition de 8 données numériques et 8 données analogiques 
Prix club Europe : 475 FF (VK), 485 FF (VI) 


Les cartesvous sont proposées sous deux formes. La première, ou version kit 
continues avec cette carte, début d'une série d'extensions du bus DCE. Remarque : *** 


(УК), comprend le circuit imprimé percé 
deuxième, ou version intégrale (VI) 


apparu, après consultation de divers détaillants sur Pari 
P 


fois de plus l'estimation. Aussi, si vous pouvez obtenir d 


nous vous avions communiqués précédemment п' 
composant, n'hésitez pas à nous en informer. 


paramètres définissent le prix : si vous etes mem 


vous habitez la France ou non. 
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DAISPOT : Vous reviez de vous faire un chenillard 
canaux 220 У simultanés (jusqu'à 24avec 3 cartes), C' 


carte entièrement isolée du secteur. 








voici une carie qui vous permettra de 
lible avec les ordres INP et OUT du Dai. 





Ka s 
E = 
5 5 
8 5 
Ф a 
а = 
Я > 
о 
о — 
Ф м 
В 8 
—— uz ~ ~ та 
за а єв а 
BEL š БЕДА ә 
Ме — ыч — La — — oen мч 
EEES БЕСЕ à 
эсен 2 ~ еч E E іа == 
~ 
Sane o Sask А РРО 
zE 5 ддце 8 EREE 5 
MMe MM е ы EE * 
= 
zes Ki ZE 9 Sa 3 
ВЕРЕ а => 3 sake Fo 
— 3: БЕЗ Ф 22775 88 
RSEE ok Беш g S922 ла 
O ил су SI “Soe я Shea SE 
па 29 5895 „әс B шт? 84 
өсе Сут Sess р осяє 8 Ф 2258 ~ 
gees Bea gees 8d Bead о 
5548 Lacs SIS аў COMM 5 
mage 885 cust 58 няк 
за = З ж.а ёо 22 23 па Eu e 
S247 а Ф Bad 28 Om 
сои „989 5533 89 
Ф 4 
Bada адал HAAG оз 
аа 598.3 AA $m 
MEE 88 
з асо @ 9 2 
абза 2^ 
& © 
Ясан = 
о 5-2 SE 
-SSA З 
Зоо == 
o мы 
5.53 ck 
558% E 
ASSET за 
за 8 p | 
138 3 
Oxo = 


. “хлоцэ 

пе sauueaboad ар 233295522 aun пәл зцешатебе е guyyang чеэг 
11 0109: От#Л=Л 5 Olde 5 ҮеМэм ФТ 
MHflD3N:U іміна мана ZEN 21 їй= CT 
GN3:1X3N мані 8<>а зі гт 
ЗЭеЛ/2-244:868-01Х4336-09-816 OL Тех МОЯ TT 


001=3 ! 01-40: Там OT 
GN3:01 80509:9=9:01 80508 :5=9 1 
ANI dT 


2 (2954 Ott) OHYHIND чеәр әр анмезбоза 


«202% ( (381%) 3334-4338) іміма 06 
I LX3N Ot 
f LX3N OS 
3 хамам ININJ OZ 
Of 0109 OOT5% JI ST 
of 04 09 
E» LX3N МЭНІ ЖООООТ GOW 53 31:001 4315 ОО6+Г 01 гея ноз 
toe 0109 C<>00T GOW сер 31:01 4315 Ob+T OL Let 804 
30% 0106 1<>01 GOW 161 3126 Ol Gei МОЗ 01 
зав'зате 3304 1 
ANY аит 
і (2854 008) 1438909 Neg әр гшшелбоја 


азавш 


рота алозџа) 
амумапд оеар эр тптаз зә LYHHDO [ned ар тпра2 :арџоза5 эоп.р 
surow ua uotjnios ет зшәлпооз 21594 Sawwesbosd nag "029 
За 9/9 3205 Sgpueuap sad; Iy? с ар Sauquou зэл 


9 ом 21712190 пр 5апоомој-паг пе зомразм 


«QUIS Qed LINIYA 

амзгіхзм:іхзм NƏHL 3<(G+291#3) 29834 41:3/488 01 201-292 MOA 
04-0001) / (Т-Не0001) -4:1-/ 4315 Z OL 6-H МОА 2н4-318902/1-0 1 
ЕРЕТІН 


ам 


:snossap-123 suou 
-uop гі snoa snou ‘34705 5823 зза да 29$ Ze] US чотаптое ет 
алпозз awwesbord uos әшшод i (`` аззоб еі здаодша US 3ue3ny) 
* (2242234)  чорпед ep амумзпд uesp ар 9 зе с хваг xne sasuod 
-82 зар зчашецезіпшів пЗаш sucAe SNOU 1484 әзіпе,й 


7320448 ups mod зашше 6029 ap 233555е2 aun п524 әшәш ар 
3003 e mb ‘(enbribisg) 1854907 эр 143809 Ined Jed 31429 әҙә 
т II "apuewap тү e438} це Inb әззәзәит зпазоаї 3703 ў 1uswos 
-патовоб дАолиа газе 11 “121 atiqnd әзіз Mod snb биот do 
зва | (еотцоєю эбеябиет ца) ашше 26044 әз ашшод *ариозәв зип.р 
5итош us 2540934 ет auuop 2118 225 ‘ээ1еч6т5 э24а.р зитед ei 
3uepusda2 зөвл 2113 “3ueppopad озәшпи- ат suep Əərrqnd 2.39 
anod anb раез 4023 enusAJed зза snou 2500422 sun 


A A es а та то STA а са врта акаа 


5 ON 31773100 np о взмпозмој-паг пе нпамзаае 





92190 MEUDON 
FRANCE 


Alter rue de Paris 











DAICLIC 8 ` 


DAInamic 35 





DAICLIC 8 


DAinamic 35 





Ee 















































C'est le пот d'un ouvrage de 67 j i i i 
à un ош pages, en majeure partie en francais (les appendices 
sont en anglais), qui initie les possesseurs d'un DAI à l'assembleur et au langage machine. 


i nsacré au РАТ il peut ous а rer i 
4 u e e tout en 
Ce livre E со р ¥ pporte les bases d langag machin 


Vous pourriez être sceptique sur l'utilisation de ce livre si vous connaissez les 
ouvrages consacrés au 8080. Cependant, ce livre a l'avantage d'être écrit dans un langage 
simple. Les registres, pointeurs, instructions vous seront développés un à un avec un 
exemple simple et qui se rapporte à la logique du DAL 


Е Si Vous en avez assez du basic et que vous voulez faire vos dents sur l'assembleur et sa 
rapidité, n'hésitez plus à commander cet ouvrage qui deviendra votre livre de chevet et un 


outil de travail, car sa simplicité, ses trucs et ses adresses en RO i 
eee М lui sont des atouts 


Pour tout renseignement ou commande écrire a: 


DCA service documentation 
c/o Pascal Hertzog 
2, avenue Jean Moulin 
94350 VILLIERS SUR MARNE 
FRANCE 








REGLAGES KEN - 
LDC BORDEAUX 


“yv 


Avec le potentiomëtre de 10 К Ohms, régler la tention à mesurer sur la pin 17 de (ICC 
entre 5,6 et 5,8 Volts. 


Из sont très simples : 


Avec le potentiomètre de 190 К Ohms, régler latention à mesurer sur la pin 2 de ПСЕ 
entre 1,5 et 1,6 Volts. 


Avec le potentiomètre de 50 К Ohms, régler la fréquence à mesurer sur Іа pin 7 de 
ПСЕ à 2 Méga Hertz. 


Si vous n'avez pas d'oscilloscope, vous pouvez essayer іа méthode suivante : 


Régler à mi-course је potar et taper l'instruction FORMAT’. П doit afficher des 0 à 
cadence réguliére (un environ toutes les secondes). 


Sinon, bouger un peu le réglage et recommencer. 
Après un bon FORMAT, taper ensuite VERIFY et le checksum des 80 pistes doit 


Safficher à une cadence régulière, environ un toutes les secondes (sous réserve de 
posséder une disquette de bonne qualité). 





Sinon, retoucher à peine votre réglage et recommencer le VERIFY. 


Bien sur, se procurer dès que possible un oscillo... 
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DAI et MINITEL 3me 


Par I.0.C.Bordeaux | 
le 14 / 04 / 86 





Avant tout il est très important pour nous , vu l'ampleur de ces articles que 
vous nous envoyez un petit mot d'encouragement ou de protestation pour nous 
faire connaitre | 


* votre interet dans cette lecture 


* votre aptitude à suivre nos élucubrations car nous sommes conscients du 
caractère parfois abscons de cette prose. (sur laquelle оп peut aussi s'asseoir) 


Passons à la pratique z 


En éffet à l'heure où est rédigé cet article notre émulateur MINITEL est fin 
prêt (c.f. la page d'information de I.D.C.Bordeaux де DAICLIC 7) aussi les 
différents labels mentionnés dans cet article correspondent à ceux réellements 
utilisés dans le source G.P.L. que nous tenons à votre disposition. La lecture 
de nos articles est quasi indispensable саг le source n'a pu être commenté (il 
est tellement 'balaise' que les commentaires ne tiendraient pas dans le buffer 
8.Р.1.) 


ти STRUCTURE DU PROGRAMME 





Іі comprend З sous parties principales = 3 sous programmes différents 
fonctionnant simultanément grace à la gestion de deux interruptions. 


1/ Communication : grace au détournement de l'interruption 4 ( se reporter à la 
lecture de cet article qui paraitra dès qu’ il y aura 
suffisamment de place dans DAICLIC ...) 


2/ Clignoti - Clignota : grace au détournement de l'interruption 7 , ce sous 
programme gère les différents types de clignotement 


pour les caractères et le curseur. 


3/ Affichage : c'est la partie développée cette fais. 





IIZ AFFICHAGE 2 





1/ Ecran fictif - Ecran graphique 


Ce sont deux zones de travail, deux portions de la mémoire vive du DAT, qui sont 

gérées séparément 

* L'écran graphique est l'écran réel,la portion de ВАМ du DAI correspondant au 
MODE 5, visible sur l'écran de votre moniteur, miroir du MINITEL. 


ж 


L'écran fictif est une portion de ВАМ de 3Kilo Octets, reflet codé de l'écran 
du MINITEL ,stockant in extenso tous les caractères affichés ainsi que leurs 
attributs. (pour l'explication du calcul des 3 Ko. c.f. le premier article sur 
le MINITEL dans DAICLIC 4 p31 en bas ... = DAI et MINITEL 1) 
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а/ Rôle de l'écran fictif 


Іі gère tout ce qui а été décrit dans notre 2те article (normalement DAICLIC 6 ! 
= DAT et MINITEL 2) propagation des attributs de groupe , espaces validants 

Ceci permet de s’affranchir de la notion d'attributs de groupe,afin де 
simplifier la traduction de cet écran fictif en écran graphique : chaque 
caractère contient en lui même la totalité de ses attributs ‚ individuels et de 
groupe , ce qui implique une taille mémoire, non plus de 2 Kilo Octets comme 
dans le MINITEL, mais de 3 Ko. 


b/ Codage utilisé pour créer cet écran fictif 


Nous savons que 3 Üctets sont nécessaires pour coder tous les paramètres d'un 
caractère (c.f. DAI et MINITEL 1) 


ler, OCTET 
Bit 0 à Bit 6 ; ils peuvent contenir 4 sortes de codage 
~ pour un caractère normal VIDEOTEX : ils contiennent le code videotex де се 


caractère (de #20H à #7ЕН). 

- pour un caractère espace validant ils contiendront le code //18H. 

- paur un 'trou' ce sera le code DO 

т pour une case contigüe à un caractère double hauteur et/ou double largeur са 
se complique un peu 


Un caractère double largeur s'étend sur deux cases contigües sur l'écran 
graphique , chaque case de l'écran graphique correspond à trois octets mémoires 
dans le buffer 'écran fictif’, donc 6 positions mémoires contigües serviront 
pour un caractère double largeur , les trois premières contenant les 
caractéristiques attribuées à ce caractère et les trois suivantes contenant un 
code spécial (= #08H) juste pour préciser que cette place est occupée раг un 
caractère double largeur, sans être autrement traduites sur l'écran graphique 


Position : Тег Oetet,2me Octet,3me Octet; er Oc.Bis, 2me Oc.Bis,3me Ос.Віз. 
Contenu : X X X #08 #08 #08 
(X XX): U^ codent le caractére à afficher, 


De même pour un caractère double hauteur ce sont les troís octets mémoire de 
l'écran fictif correspondant à la case de l'écran graphique, juste au dessus de 
la case contenant les codes du caractère à afficher , qui contiendront је 
code #OBH ( ПЕ!) 


(X,X,X) : codent le caractère à afficher 

Position : Contenu 
ferOc.Bis,2meQc.8is, 3meQc.Bis #08, #08, #08 Case d’ecran supérieure 
ler Octet, ame Octet,3me Octet X X X Case d'écran inferieure 


tt 


Й , 


Bit ? : caractère clignotant (1) ou non (0) 


2me OCTET 
Bit 0 à Bit 2 : Couleur du Caractere en code MINITEL 
Bit 3 à Bit 4 : Jeu de caractéres utilisé : ООН = 50 
08H = 61 
10H = 62 
18H = Spécial 


On profite que reste libre la position 18H pour l'utiliser afin de 
préciser la présence soit d'un espace validant soit un trou soit un 
caractère ”сап 107 Є redondance ! ) 












































Bit 5 : Double Largeur ou Non 

Bit 6 : Double Hauteur ou Non 

Bit 7 : Ne code Rien ! 

OCTET 

Bit 0 а Bit 3 : Couleur du Fond en code DAI 
Bit 4 . : Lignage ou Non 

Bit 5 : Ne code Rien ! 

Bit 6 : Inversion Video ou Non 

Bit ? : Masquage ou Non 





Cette methode permet de séparer complètement les différents problèmes succités 
d'une part par le codage des différents attributs propres à un caractére (partie 
réglée par l'écran fictif que nous verrons en détail une prochaine fois) et 
d'autre part la gestion de l'écran graphique (que nous allons voir aujourd'hui) 
qui sera le simple reflet de l'écran fictif. 


II ECRAN GRAPHIQUE 2 





Cette gestion est faite dans notre programme par la routine GNLEG i.e. général 
écran graphique. 


1/ Localiser le caractère 

Il faut le localiser à la fois dans l'écran fictif et dans l'écran graphique. 
Par convention HL poíntera la position dans l'E.graphique et OE la position dans 
l'E.fictif du caractère à afficher. 

Ces deux pointeurs sont dupliqués en RAM dans les variables POIGRA i.e. pointeur 
écran graphique et POIFIC i.e. pointeur écran fíctif 


Le calcul de ces adresses se fait par un sous programme à voir plus tard. 


2/ Recherche de la matrice à POKER : 

Une fois ces adresses respectives trouvées ‚il faut Poker sur l'écran graphique 
une matrice correspondant eu caractère а afficher, cette matrice étant contenue 
dans une table différente pour chacun des trois jeu de ceractères possibles. 


Que longue et fastidieuse fut la frappe de cette fable de matrices ! ciel , que 
de sacrifices dans ce monde d'ingratitude. 


La routine générale de recherche de matrice quel que soit le jeu de caractères 
utilisé à pour label MATGNL i.e. matrice géréral. 

Son utilisation — 

A l'entrée : DE pointe 1'ёсгап fictif. 

En sortie : BC contient l'adresse de la matrice à poker 


Pour 60 
La table des matrices débute au label 00  (si,si !!) 


Comment trouver la bonne matrice dans GO , tel est le role de MATGO i.e. matrice 
60 utilisant la formule suivante 
Etant donné que la longeur d'une matrice est de 10 lignes (paramétrée cependant 
par MATY afin de varier facilement pour d'autres utilisations ...) on décide 
d'appeller le code Videotex à afficher : CODE on aboutit à 

ADRESSE = (CODE - #1F) * MATY + 60 - 1 
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Pour б1 
11 faut savoir que la correspondance CODE <==> mattrice du semi graphique est la 


suivante 
Bit б Bit 1 
Bit 2 Bit 3 
Bit 4 Bit 6 Attention pas Bit 5 саг 


nous savons que les codes doivent être >= à #20H donc si le Bit 6 est а 0 alors 
il faut et il suffit que le Bit 5 (qui n'influe pas sur la forme du graphisme) 
soit mis а 1 pour que le code ait 1а valeur nécessaire. Et si Bit 6 = 1 alors le 


Bit 5 est indifférent. 
Puis tout dépend si le caractère à afficher est ligné ou поп 


* Pour un caractère non ligné le début de la table des matrices se trouve au 
label 61 ( pas possible 1) 


* Pour un caractére ligné le début de la table des matrices - label 61 


Il suffit donc de tester si le caractère est ligne ou Non et on en déduit 51 ou 


GIP. 

51 ce caractère а un code >= #60Н (Bit 6 et Bit ба 1} alors on met le Bit 5 à 0 
ce qui équivaut à faire -#2DH. 

Enfin la recherche де la metrice se calcule comme pour 50. 


Pour G2 
Le codage est interne au programme et n'a pas de rapport avec les codes MINITEL 


de G2. Exemple : le code de la livre anglaise est #21H, celui de la flèche 
curseur gauche est #22H , flèche curseur droite = #23H etc 

Cette table contient aussi les caractères accentués et non plus le seul code de 
l'accent comme dans le MINITEL et aussi 18 matrice de l'erreur de transmition ~ 


point d'interrogation à l'envers. 
Le début de la table commence au label !!! G2 !!! 


3/ Couleur de cette matrice 

Dans l'écran fictif on appelle Е 1а couleur codée comme couleur de fand 
{contenue dans le 3me. Octet) (le cas des caractères clignotants sera traité 
dans un chapitre à part). 

Оп appelle б la couleur codée comme couleur de caractère. 


COLORE est la routine qui va déterminer la couleur de fond ‘réelle’ et la 
couleur de caractère ‘réelle’ (pour les рбугез heres qui croyaient que la 
couleur de fond était la couleur de fond!) et ve les poker respectivement dans 
COULFO i.e. couleur de fond et COULCA i.e. couleur de caractère. 


Expliquons ип peu 
Plusieurs tests sont faits successivement 


а/ Masquage 
S'il у а masquage du caractère alors le caractère est remplacé par un espace 


noir F=0 et 0-0 


b/ Inversion Video 
Uniquement pour les caractères des jeux 00 et 62 ,puisque ies semi-graphiques ne 


sont pas atteints par une inversion video. 
Dans ce cas Е et С sont permutés ‚la couleur du fond devenant celle du caractère 


et inversement. 
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с/ Clignotement 
Ce test ,portant sur la variable FCL sera développé plus tard. 


Alors, à l'issue de ces trois tests, la valeur (qui n'attends pas le nombre des 
damnés hells) contenue dans F est celle de la couleur du FOND et dans Ü celle 
de la couleur du caractère. 


*** CEPENDANT 

Pour les caractères double hauteur ‚le haut du caractère peut avoir une couleur 
différente de celle du bas .11 faut donc refaire ces tests pour le haut du 
caractère et poker les résultats obtenus pour ce deuxième calcul dans COULFH 
i.e. couleur du fond haut et DOULCH і.е. couleur du caractère haut. 


4/ Pohage sur l'écran 

Puisque nous connaissons à présent : * la position 
* la metrice 
* les couleurs 


(que ceux qui ont cru suivre le distingo entre colora simplex et colora veritas 
ne sortent pas de suite car ils vont encore avoir à affronter un terrible ennemi 
bien connu en MODE 5 : la bavure) 


Cette bavure ,décrite par Mr. BOUCHERON dans DAICLIC 4 p65 et dont l'explication 
va paraitre dans un article séparé , nous oblige , afin de ne раз voir nos 


magnifiques matrices dégouliner lamentablement les unes sur les autres , à 
certaines précautions 


REGLE : 

Rappellons qu'en MODE 5 un point est codé dans un barreau de 8 points 
consécutifs, occupant 2 Üctets en RAM video. 

Le fer. code la (COULEUR1 є #10) + COULEUR? et le 2те code les points de 
COULEUR1 (= Bit à 1) et de COULEUR2 (= Bit а 0). 


Pour éviter la bavure il faut et il suffit de commencer ie 2те Octet ( barreau 
de 8 points) par un 1 !. 


7227 
% 
? 
DONC = 
Il s'avère nécessaire , pour commencer un Octet par un 1 alors que l'Octet 
correspondant de notre matrice à Poker commence раг un Ü , de faire une 


‘inversion video’ de notre ligne de matrice considérée ‚ainsi que d’inverser 
simultanément les couleurs de Fond et de Caractére. 

(ce qui semble revenir au même à vos yeux Oh pôvres mortels 1) 
Оп fait de méme pour chacune des 10 lignes de notre matrice à afficher. A la fin 
de ce saucissonnage la matrice parait unie alors qu'elle n'a pas céssée d'étre 
affichée avec ou sans inversion des couleurs selon la valeur du fer Bit de la 
ligne à afficher. 


Label où se trouve cette routine = POKCOG i.e. Pokage de la Couleur Genial. 
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Que ceux qui suivent encore nous envoient un télégramme de soutien pour Г. 

, : 2 
assister dans notre rude tache ( et pour nous rassurer sur le taux d audience 
ces explications !). 


POKCOG : utilisation 

А l'entrée, dans la pile se trouvent ВС et PSW dont А représente la ligne de 8 
points de la matrice originale à poker, dont sera testé le bit de poids le plus 
fort ‚qui , s'il est égal à D déclenchera le processus d'inversion video, 

'B' contient la couleur réelle du Fond et 'C' la couleur réelle du Caratere. 


11 faut considérer 4 sortes де рокаде différentes pour cette matrice Selon la 
taille du caractère à afficher 





“Taille Standard : routine POKSTA 
“Double Largeur : routine  POKDL 
qui fait appel аи sous programme REPADE i.e. répète  l'Üctet contenu dans "А" 


en deux Octets 


“Double Hauteur : routine POKDH qui poke 20 lignes graphiques. 
Pour les 10 lignes du bas Чи caractére,les couleurs seront celles des variables 
COULCA et COULFO et pour les 10 lignes du haut : COULCH et COULFH. 


TESTHA (i.e. Test de Hauteur) , pour cela , utilise 'H' comme pointeur de ligne 
de la matrice (varie de 1 à 10 D),puis met à #FFH le flag nommé FHAUT i.e. Flag 
Haut si la moitié du caractère à poker est atteinte ('H' = 5 ). 


Alors POKCOL ‚sous programme général qui inclu POKCOG, sélectionne les bons 
couples de variables parmis les deux couples possibles : {COULCA , COULFO} et 
{COULCH , COULFH) ; selon la valeur de FHAUT. 


*Double Taille В combine les 2 routines Double Hauteur et Double Largeur. 


РОКОМ. : rassemble ces sous routines pour éffectuer la seule que réclame la 
taille du caractère à afficher. 


A l'entrée : ‘BC’ contient l'adresse de la routine de la matrice à poker. 
"БЕ" contient l'adresse du caractère dans l'écran fictif. 
"НЕ" * pt 4 '' l'écran graphique. 


5/ Soulignement 

Pour 60 et 62, une fois les caractères pokes ,il faut parfois les souligner 
(attribut de lignage) ‚се qui se résume à poker une ligne sous le caractère. 
Tous les tests (jeu de caractére,taille,lignage..) et toutes les opérations 
nécessaires à cette fonction sont réalisés par 18 routine SOULIS. 


SOULIG : 
A l'entrée : 'DE' contient l'adresse en écran fictif. 
‘HL’ éi Ka écran graphique. 


6/ Résumé 
Toutes ces opérations „séparées en sous programmes, sont appellées par 1а 
routine GNLEG i.e. Général Ecran Graphique. 


GNLEG 

А l'entrée : ‘DE’ contient l'adresse en écran fictif. 
"НЫ? ын 21) écran graphique. 

Et un appel à GNLEG va donc dessiner le caractère voulu sur l'écran graphique. 











ا 





























IVs CONCLUSTON 5 





1/ Le compte de l'écran graphique est définitivement réglé, sauf pour le cas 
particulier des clignotements (caractères et curseur). 


2/ 1! reste à voir 


a/La gestion de l'éran fictif і.е. la gestion des attributs. 
cette seule partie prendra au moins 1 ou 2 articles 


b/La réception des codes MINITEL et leur traduction 
*caractéres visualisables 
#caractères de controle (CODE >= #20H) 
*attributs et protocoles 
ceci aussi prendra une certaine place 


AUSSI BON COURAGE ! 


Sébastien DUBOURG et Bruno DELANNAY de I.0.C.Bordeaux. 
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= EUROPEAN MICRO MEETING (EMIM) 







25 OCTOBRE 1986 


Be sa a et 








Le samedi 25 octobre 1986 ( de 9h30 à 19 hOO ) à Nivelles (Belgique) 
aura lieu l'European Micro Meeting. ў 

Tous les passionnés de micro-informatiques sont cordialement invités à 
cette manifestation exceptionnelle. Le DAI Р.С. occupera toujours la place 4” 
honneur, Les principaux clubs: IDC, IDC Bordeaux, IDG Bruxelles, IDC Charleroi 
IDC Liège, IDC Paris et DAInamic seront représentés et présenteront | 
services spécifiques, 

Le programme de cette journée sera fonction de chacune des associations 
représentées. Elles présenteront l'éventail de leurs activités, c'est ainsi que 
vous verrez des Amiga, Atari ST, MSX, PC-MS/DOS, ... cotoyer le DAI, 

Un rendez-vous à ne manquer sous aucun prétexte. 


leurs 


COMMENT ЗЕ RENDRE AU MEETING ? 


Autoroute PARIS-BRUXELLES, entre Charleroi et Bruxelles, sortie Nivelles 


Я 


Sud (sortie 19 dans la direction de Bruxelles, sortie 19 BIS dans la direction 
de Paris). 

L'endroit : Motel Nivelles Sud situé à la sortie de l'autoroute , а 15 minutes 
de la gare. Madame pourra faire son shopping dans le centre commercial en face 
du Motel ou dans le centre commercant de la ville (à 7 minutes) 


sur le marché (le matin,dans le centre à 5 minutes). 
venir ! 


г Ou encore sum 
Aucune excuse pour ne pas 


Un parking de 400 places est à votre disposition „ Four les étrangers , il est 
possible de loger sur place, le prix des chambres est d'environ 1200 FB. 





ADRESSE : EUROPEAN MICRO MEETING — (ЕМІМ) 
— MOTEL RESTAURANT “NIVELLES SUD" 
Chaussée de Mons a 22 

1400 Nivelles  - BELGIQUE ЇР ЛГЇ IN 





Téléphone : (0067 / 21.87.21 





ON EMIM 
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CALCUL MATRICIEL 





Maurice DECUYPER, CHAUDFONTAINE (B) 
Ce programme peut effectuer des travaux sur des systèmes linéaires (matrice): 
Саісці de déterminant, Inversion de matrice, Résolution de systèmes 


П utilise pour cela l'algorithme de Banachiewicz qui est assez peu connu et qu'il 
serait fastidieux d'étudier ici. Retenons simplement que cette méthode passe par une 
matrice intermédiaire qui est la même quel que soit іе but à atteindre. Le programme 
élabore cette matrice au cours d'une première phase (phase progressive). C'est au cours 
de cette première phase que les équations redondantes sont détectées et éliminées par 
exemple. La phase suivante diffère selon le travail demandé. La matrice intermédiaire peut 
etre affichée mais elle ne présente un réel intéret que pour ceux qui connaissent 
l'algorithme. Toutefois, on peut signaler que lors de la recherche du déterminant (non nul 
!) d'une matrice (carrée), il suffit de faire le produit des pivots (éléments dont le numéro 
de ligne - le numéro de colonne), la réponse obtenue ainsi ne sera cependant exacte 
qu'au signe prés. Mais de toutes manières, la réponse finale donnée par le programme 
sera, elle, exacte (je l'espére..) y compris le signe. Lorsque le déterminant est nul, le 
système est incompatible... le programme n'élabore pas la matrice intermédiaire jusqu'au 
bouteton ne pourra dés lors pas l'afficher. 


On peut introduire n'importe quel système d'équations linéaires qu'il soit 
indéterminé, redondant (trop d'équations pour le nombre d'inconnues) ou incompatible, le 
programme est censé pouvoir le traiter. S'il détecte des équations redondantes, il les 
élimine en le signalant. Si le systéme obtenu aprés transformation est indéterminé, le 
programme donnera un systéme réduit en utilisant les derniéres variables comme 
pseudo-constantes et toutes les autres seront donc exprimées en fonction de ces pseudo- 
constantes. 


Le programme est prévu pour utiliser les drives PRODATA avec le DOS 3.0. On peut 
modifier la destination de la matrice (numéro du drive utilisé) et le nom du fichier pour 
la matrice à la ligne 230. La matrice est donc sauvegardée afin de permettre un autre 
calcul avec éventuellement des modifications des dimensions de la matrice et d'éléments 
particuliers de cette matrice. 


П est obligatoire de définir une précision de travail pour éviter les erreurs 
introduites par les arrondis. Tout élément introduit ou calculé (matrice intermédiaire) 


inférieur à la valeur définie sera simplement ramené à ZERO. En général, j'emploie 10 E-5 
(on peut taper 0). 


Le programme n'est "limité" que par les DIM et donc par la mémoire du DAL On peut 
imaginer de travailler avec des matrices de 1000 x 1000 ! mais i! faudrait un peu plus de 
place disponible. On s'arrétera donc pour l'instant à des matrice de 50 x 50. 


Cela représente déjà un travail considérable lors de lintroduction! Si le 2327e 
élément que vous venez d'introduire est erroné: pis de panaque (1), notez la ligne et la 
colonne de celui-ci et vous pourrez le corriger à la fin. 


Pour ceux qui ne possèdent pas les drives dont il est question, voici les commandes 
utilisées et leur signification. 


ASSIGN: Replace tout dans un état standard (clavier, disquettes, écran) pour ce qui 
concerne les entrées-sorties uniquement ! (le #5232 est déconnecté) 


ASSIGN "OUTPUT ТО #5232": Connecte le RS232. 
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DELETE: Détruit le fichier nommé sur ја disquette. 
DOS: Permet simplement de programmer des instructions du DOS. 
NODOS. Revenir aux instructions BASIC. 


Pour plus de facilité, regardez la syntaxe de ces opérations aux lignes 170-180-190 
qui connectent le RS232 alors que la ligne 200 inhibe toute émission vers le RSZ32. 


П n'est pas possible de faire le tour des possibilités du programme ісі et je ne fournis 
qu'un seul exemple qui rassemble un certain nombre des particularités très intéressantes 
pour les résolutions de systèmes. 


Le système initial est composé de 5 équations à 4 inconnues, il y a donc une équation 
de trop. Introduisons la matrice telle quelle. Le programme signale d'abord que l'équation 
numéro 3 est redondante (inutile) et la supprime. Puis, il détecte que l'équation numéro 4 
est également redondante. Ісі, il est bon de signaler que cette équation 4 est en fait la је 
dans је système initial. Cette équation est en effet devenue la 4è lors de la suppression de 
l'équation 3! 


Le programme a donc éliminé 2 équations or il n'y en avait qu'une de trop, le 
système est donc à présent simplement indéterminé (une équation manque). 
L'inconnue X4 (la dernière) est donc prise comme variable et les autres inconnues sont 


exprimées en fonction de X4, ce qui nous donne un système bien plus aisé à manipuler, 
vous en conviendrez. 


EXEMPLE DE RESOLUTION DE SYSTEME (Précision : 1E-5) 
Système à résoudre: 


№ = Њу - 7% X - 23 = 0 
2 Ms + 2% + 40 = 0 

2%, - 9X, ~ 13%, - 56 = 0 
У - % +9 +22=0 
0 


-54,) + Ky + OK, + 2k, + 15 = 


Résultat: Equation numéro 3 redondante; je la supprime donc ! 
Equation numéro 4 redondante; je la supprime donc | 
Ce système est indéterminé !!! 











№ = =5 + 2X. 
Ko = 8 = % 
Aa = =2 + Ж 
№ = № 
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19 REM VERSION: V4.6 


38 КЕМ CE PROGRAMME UTILISE L'ALGORITHME DE 

4@ REM BANACHIEWICZ. 

50 REM IL PERMET LE CALCUL DE DETERMINANT (МАХ: 50X50) 
ва — REM AINSI QUE L INVERSION D'UNE MATRICE CARREE 

78 REM (НАХ:25125), IL PEUT AUSSI RESOUDRE UN 
80 REM SYSTEME D'EQUATIONS LINEAIRES A PLUSIEURS ан 
90 КЕМ INCONNUES (НАХ:50). 





GROUCHO CROSSING 
108 КЕМИНИНННИНИНИНИНИНННИНИНИНИНИНННИННННИНИНИННИНИННН 
119 REM Maurice DECUYPER janvier 1986 
128 REN 11, rue А. DUMONT . 
139 REM 4681 CHAUDFONTAINE tel: 041/65.75.72 
i58 REM 
168 REM 


170 POKE %131,5:КЕМ DOS 

180 PRINT "ASSIGN","QUTPUT TO А9232" 

190 РОКЕ #131,PEEK(#1E)2REM МОРОЗ 

200 РОКЕ #131,1 

210 CLEAR 4 

220 CLEAR FRE:DIM ELEM(50,0,50.0) ,ELEMENT(50.0,50.0) ,COLAB(SO.@) ,Х% (5 
0.0),1МУ(25.0,25.0) 

238 FICHIERS="MATRICE"SDRIVEZ=O:REM MODIFIEZ А VOTRE CONVENANCE CES Р 

ARAMETRES 

240 NOMS=FICHIERS+" ЕРТ: "+М10$ ( 9ТК$ (DRIVEX), 1,1) 

258 POKE %151,1:РКІМТ СНВ$ (12) : CURSOR 20,14:PRINT "BANACHIEWICZ" 

260 PRINT TAB(28);""^""""v"""** de Maurice DECUYPER" 

279 PRINT «PRINT " Desirez-vous faire un calcul det Determinant (D)" 

280 PRINT ТАВ( 34); "Resolution de systeme (R)" Ф да 

298 PRINT ТАВ (54); “Inversion de matrice (1)" pd 

300 CURSOR 25,CURY:POKE 475,63:816NEZz1: DTMZ-1 w 

310  A=GETC:IF 8=0,0 THEN 310 

520 IF AzASC("D") THEN CALCULZ=0.Q0:COLONA=LIGNEZ:GOTO 360 

330 IF AsAGSC("R") THEN CALCULZ=1.9:G0T0 360 

340 IF Asz88C("I") THEN CALCULZ72. 0: COLONZ=LIGNEZ:GOTO 369 

350 GOTO 519 

$60 PRINT CHR$(12):POKE 8131,0:00808 2380: CURSÜR 8,14:0N CALCUL? GOTO 
380,390 

378 PRINT SPC(18) ;"DETERMINANT":PRINT SPC(IO) з "iex ex "1 GOTO 400 
380 PRINT SPC(7); "RESOLUTION DE SYSTEME":PRINT SPC(7); ннен 
ree ee": БОТО 400 

390 PRINT SPO(7)e"INVERSION DE МАТЕТСЕ":РКЇМТ ЗРО (7) "innen 
хээ": GOTO 408 

400 РОКЕ #75,95:GOSUB 2410:POKE 8131,1:1ЇР MEMEZz1 THEN 660 

418 IF МЕМЕХ-2,0 THEN 610 

420 GOSUB 2410:POKE #ISt, As INPUT "NOMBRE DE LIGNE: ";LIGNEZ:PRINMT :1F 
LIGNEZ<1.@ OR LIGNEZ?5@.@ THEN 428 

430 IF CALCULZ=2 AND LIGNEZ225 THEN 420 

440 IF CaLCULZ-8 OR CALCULZs2 THEN COLOQNZSLIGNEZ:60T0 469 

450 INPUT "NOMBRE DE COLONNES: "j4COLONZ:PRIMT "IEF COLONZZ1 OR COLONT? 
58 THEN 458 

458 INPUT "PRECISION: "j;PRECIS:1IF PRECIS=Q THEN РКЕС1841Е-5 

478 | ELEMENT(1.0,0. DD *PRECIS: PRINT CHR$ (12) 

480 ЕЕМЕМТ (0, 0,0.09) -LIGNEZ* (COLON /100. 0) 

499 CURSOR 18,15:PRINT "INTRODUCTION DE LA MATRICE” 

500 PRINT ТАВ(1В) ; "УУУ v ey sss у EE. D 

510 FOR Lisi ТО LIGNEZ:FOR Ссі TO COLONY 

520 CURSOR 10,12:РВЇМТ "ELEMENT PRECEDENT з ";PREC;SPC(IQ) 

530 PRINT TAB(IQ)Fi" ELEMENT ВБ: "СИ; СЯ: "= "ss INPUT ELEMENT (LZ СЕР 


548 CURSOR 10,12:РВЇМТ SPC(AB) :РКЇМТ ТАВ(180):8Р (40) 

558 PRECSELEMENT (LX, CA) NEXT. CZ:NEXT LA 

568 PRINT :PRINT * MERCI MERCI MERCI MERCI MERCI HERCI 
MERCI”: PRINT :PRINT "EST-CE CORRECT (0/М)?" 
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Aborder l'animation sur ordinateur, peut se faire de plusieurs facon suivant la 


méthode utilisée pour générer les images. 


А La méthode le plus simple est de rentrer les images en les dessinant sur l'écran. 
C'est celle méthode qui servire de modèle pour un premier programme de type 
expérimental. 


On pourra ensuite utiliser des sous-programmes de traitement de l'image : 
translation, rotation... en trois dimensions... 


Une fois que ces sous-programmes sont assimilés, on pourra alors envisager de 
programmmer la suite „Че ces traitements de l'image et accéder ainsi а 
l'automatisation de la création de notre animation, 


Le deuxième point à aborder est l'utilisation de l'image créée. La, deux ou trois 
méthodes : 


| * L'image est affichée sur l'écran et reste ainsi pendant que l'ordinateur calcule 
l'autre image qui prendra alors la suite. 


Avantage : pas besoin de stocker chaque image en mémoire, On peut alors 
accéder à la haute résolution puisque la mémoire n'est partagée qu'en deux pages : page 
écran plus page de l'image en cours de calcul. 


Inconvénient : оп est confronté au problème de la lenteur. Si on calcule l'image, 
les calculs ne devront pas etre compliqués et de toute manière, ils devront etre écrits 
en langage machine, ce qui ne pose pas de problème pour la translation mais demande 
un certain effort pour la rotation en 3D ou l'effet d'éclatement...De plus cette méthode 
est inconcevable si l'on rentre les images en les dessinant. 


* Chaque image est stockée d'une manière ou d'une autre en mémoire centrale. 
Un très court programme en langage machine les fait défiler une fois les images 
entrées en mémoire. 


Avantage : Pas de problème de temps, Les calculs peuvent etre longs et en basic. 
On peut rentrer les images en les dessinant. 


Inconvénient : Le Dai n'est pas le CRAY-2 et sa mémoire ae fait que 48 Ko. Раз 
question donc d'animer une pleine page haute résolution. 


* L'ordinateur se fait aider par un système spécialisé dans l'animation d'image : 
le magnétoscope et peut etre un jour le vidéodisque (on peut toujours rever non ?L..). 
Alors ia, à nous fes images haute résolution animées, d'autant plus qu'on pourra ajouter 
au DAI une unité de stockage de masse type disquette pour stocker les coordonnées de 
l'image en cours car un objet en volume demande une sacrée mémoire pour etre 
digititslisé Seul probléme : raccorder је DAI à ша magnétoscope (sinon је télé au 
magnétoscope). Un joli problème posé aux mordus de l'interface et j'espère qu'ils 
reléveront le défi (si ce n'est déja fait) | 






Le programme du iper. 


| П traite l'animation en utilisant јез méthodes de rentrée successive des diverses 
images puis d'affichage sequential de celles-ci. 
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Lignes 30 à 120 : on dessine à l'écran (MODE 24) en noir sur blanc. On déplace је 
curseur par les flèches. Une fois ce curseur à l'endroit désiré, un appui sur SPACE 
laissera un point sur l'écran immortalisant ainsi un élément unitaire du dessin. Le 
passage du curseur sur un point noirci gommera ce dernier. Le confort minimum est 
assuré : ainsi peut-on tracer une droite en pointant le point de départ par "(" et le 
point d'arrivée par ")". D'autres fonctions élémentaires peuvent etre ajoutées 
facilement. En appuyant sur RETURN, on passe à la suite des évenements... 


Ligne 1015 : permet de laisser à l'écran l'ancienne page, се qui sera bien utile pour 
dessiner l'image suivante. Si on choisit l'option. noire, on utilisera l'ancienne sans 
devoir Іа redessiner. Exemple : un décor. Si on choisit l'option bleue, l'ancien dessin 
restera visible mais ne sera pas pris en compte lors de la digitalisation suivante. 


Lignes 1020 à 1120 : scrutation de l'écran. Tout octet contenant au moins un point 
noir est stocké à l'emplacement mémoire correspondant à ја page sous la forme : 
adresse du point (2 octets) - pixel (1 octet). 


Lignes 1200 à 1208: permet de continuer ou de rattraper une page qui пе 
convient pas. 


Lignes 1210 à 1213 : animation. Le nombre d'images maximun à la seconde pourra 
etre de 17. 


Ligne 1215 : défilement automatique ou programmation de la suite des images. 

Lignes 1218 à 1300 : défilement automatique. 

POKE *2FF,no de page : informe le programme en langage machine du numéro de 
la page. MODE 2A : efface l'écran. CALLM *3000 : appelle le programme en langage 
machine affichant les points stockés auparavant. L'appui sur une touche permet à 
chaque instant de revenir sur n'importe quel point du travail. 

Lignes 1310 à 1410: programmation des images. La seule différence avec le 
défilement automatique est que l'on donne la suite des pages à afficher :no de page, 
RETURN, no de page, RETURN... , no de page, RETURN, 255, RETURN. 

Lignes 1500 21510 :programme en langage machine (38 octets) localisé en 23000. 


И ne me reste plus qu'à vous souhaiter de belles animations. Si, vous aussi, vous 
avez travaillé dans ce domaine, n'hésitez pas à nous contacter ! 


Enfin, pour les paresseux du clavier le programme est disponible à Іа softthéque. 


1 REM AAs RRS нинин и ака та иа EGO IEEE 
2 REM* Dessin Anime Assiste par Ordinateur * 
3 REM* programme concu par Н. Samain 23 
4 REM* membre de D.C.A. * 
5 ВЕ dde db З ЗВ ЯР جد جد جج 45 جج جد جد‎ HH HA HH HH 3F HH IE HH IE E MH HH HH 
6 CLEAR 15000 


10 MODE 2A:COLORG 15 12 0 3:C=15.0:PRINT CHR$(12) 
20 FOR I=*3000 TO *3025:READ J:POKE L J:NEXT I 

30 I-GETCIF 1-0.0 THEN 30 

35 DOTXYC 

37 C-150 

40 IF 1-16.0 THEN Y-Y«1.0:GOTO 100 

50 IFI-170 THEN Y-Y-1.0:GOTO 100 

60 IF 1-18.0 THEN X-X-1.0:GOTO 100 

70 IF 1-19.0 THEN X-X-1 0:GOTO 100 

80 IFI-320 THEN CURSOR 40,2:PRINT ХУ C-0.0:GOTO 100 
85 IFI-13.0 THEN 1000 

86 IFI-40 THEN D1-X:D2-Y:DOT X.Y 3:C=3.0:G0TO 30 
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87 IF 1-41.0 THEN DRAW D1,D2 X,Y 0:C-0.0:GOTO 30 
90 GOTO 30 
710 DOTXYO 
120 GOTO 30 
1000 N-N+1.0 
1005 2-*400-(N-1.0)*256.0 
1010 PRINT "C'ÉTAIT LA PAGE М" | 
1015 INPUT "VOULEZ VOUS GARDER CETTE PAGE EN (B)LEU OU EN (N)OIR ";NOUB$ 
1020 FOR W-*BB23 ТО *BB13 STEP -2 0 
1030 FOR 1-0.0 TO 40.0:W1=W+24.0*1 
1040 S-PEEK(W1):IF 5-0 THEN 1100 
1050 IF NOUB$-"N" THEN 1060 
1055 POKE W1,0:PORE У 1-1.5 
1060 2-2+1.0:РОКЕ Z.INT(W1/256.0) 
1070 2-2. 1 0:РОКЕ Z INT(256.0*(W1/256.0-INT(W1/256.0))) 
1080 2-2+1.0:РОКЕ ZS 
1090 М-М+10 
1100 NEXT I 
1110 NEXT W 
1120 POKE *400+(N-1)*256.M 
1200 PRINT :INPUT "UNE AUTRE PAGE" R$.G-00 
1205 PRINT PRINT PRINT :PRINT ТЕ R$o"OUI" THEN 1210 А 
1206 INPUT "VOULEZ VOUS LA PAGE (SUIVANTE OU UNE (AUTRE " 50045 
1207 IF SOUA$-"S" THEN M-0.0:G0TO 3 
1208 PRINT :PRINT :PRINT :INPUT "NUMERO DE LA PAGE ";N:N-N-1.0:M-0.0:GOTO 30 
1210 PRINT :PRINT :PRINT :PRINT "ANIMATION" PRINT 
1212 INPUT " COMBIEN D'IMAGES PAR SECONDES" R 
1213 PRINT PRINT :PRINT :PRINT Ri-ABS(50.0/R-3.0) : 
1215 INPUT " VOULEZ VOUS PROGRAMMER LA SUITE DES IMAGES" R$ 
1216 PRINT :PRINT :PRINT 
1217 IF R$-"OUI” THEN 1310 


1218 PRINT "DEFILEMENT AUTOMATIQUE ":INPUT “DEPUIS LA PAGE "10 
1219 PRINT :INPUT “АТА PAGE "T1-PRINT 
1220 FOR Т-ТО TOT! 
1225 POKE *2FF T 
1230 MODE 2A:CALLM * 3000 
1240 WAIT TIME Ri 6 
1245 IF GETCo0 THEN 6-90 
1250 NEXTT 
1260 IF G-9.0 THEN 1200 
1300 GOTO 1220 AC : 
1310 PRINT :PRINT :PRINT :PRINT :PRINT " Programmation":PRINT 
22 


1315 5573080 

1316 L=0.0 

1320 INPUT P%:POKE S%,P% 

322 IF P%=255 THEN L=L-1.0:GOTO 1330 

323 L-L+1.0 

1325 POKE *2FF P% ‘MODE 2A:CALLM #3000 

327 S%=$%+1:GOTO 1320 

1330 FOR T-0.0 TOL 

360 P2 -PEEK(* 3080+Т) 

1370 POKE *2FF P% 

380 MODE 2A:CALLM #3000 

1390 WAIT TIME R1 

395 IF GETCo0 THEN G-9.0 

1400 NEXT ТЛЕ G-9.0 THEN 1200 

1410 GOTO 1330 

500 DATA 245,197,213,229,1,0,4,58,255,2,61,202,18,48,4,195,10,48,19,103,3,10,0 
1510 DATA 95,3,10,18,27,194,20,48,225,209,193,241,201 
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= EXPLORATION DE L'ENSEMBLE DE MANDELBROT = 





NO 80205 L'ensemble de Mandelbrot est considéré par certains comme l'objet le plus 


complexe jamais défini par les mathématiciens. 


Il appartient à la catégorie des fractals, mais, contrairement à ceux-ci, qui donnent 
en général desimages géometriques et répétitives, donc sans grand intéret, l'ensemble 
de Mandelbrot et ses environ immédiats donnent, autour d'un thème commun, des 


variation infinies, au point qu'on peut faire du véritable "tourisme informatique" en 
explorant ses frontières. 


En choisissant judicieusement les couleurs de représentation, on peut obtenir des 
effets esthétiques remarquables, et des images tellement étranges qu'on les croit 
difficilement générees par des opérations mathématiques simples. 


Les seules limites imposées à l'exploration sont données par la précision de 


l'ordinateur qui empeche de pousser le grossissement trop loin, et le temps de calcul (en 
BASIC entre 6 et 24 heures pour une image). 


L'ensemble de Mandelbrot et ses environs intéressants sont localisés dans le plan 
complexe, dans le carré allant de X--2 à X-+0,5 et de Y=-1,25 à Y=+1,25. 


Le principe de la représentation consiste à décomposer le carré à explorer (qui peut 
n'etre qu'une petite partie du carré précédent) en points (par exemple 200 x 200) et à tester 
chaque point en effectuant la série d'itérations suivante : 


soient С-Х0+1Ү0, le nombre complexe représentant le point et 7, le nombre 
compiexe variable dont la valeur initiale est Oet qui vaut après chaque itération : 


(nouvelle valeur de Z)-(valeur precedente de Z)i2+C 
- le test se fait aprés chaque itération sur le module M de 7: 


- quand M dépasse 2, on arrete l'itération et on donne au point (converti en 
coordonnées d'écran) une couleur fonction du nombre d'itérations, puis on 
recommence pour le point suivant. 


Si M ne dépasse jamais 2 quel que soit le nombre d'itérations (pratiquement, on se 
limite à 100), је point appartient à l'ensemble de Mandelbrot et est représenté en noir. 


Cette méthode de représentation, due au mathématicien J. Hubbard, donne des 
images beaucoup plus riches que la simple representation de l'ensemble seul. 


Jai ecrit ces programmes après avoir № l'article де А. Dewdney sur l'ensemble de 
Mandelbrot paru en octobre 1985 dans ја revue "Pour la Science" (et dont je conseille la 
lecture). 


Pour raccourcir је temps de calcul (environ quatre fois), j'ai utilisé deux artifices, 
valables seulement quand ја zone à explorer est symétrique par rapport à 0X : 


- dessin simultané des deux demi-images. 


- accélérateur dans је noir", qui permet, avec certaines restrictions, d'éviter de 
devoir effectuer 100 itérations sur chaque point noir de l'intérieur de l'ensemble. Cet 
accélérateur doitetre déconnecté dans les parties concaves suivant OX, sous peine de les 
combler (voir deuxiéme image). 
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— 


(Alain MARIATTE) 


Clavier AZERTY en vaut deux ! 





Й est très facile de redéfinir les touches du clavier du DAI. IH suffit de savoir 
comment s'opère la gestion des codes ASCII. Lorsqu' une touche est frappée, le système 
transforme les numéros de ligne et colonne (matrice du clavier) en une valeur qui sert 
d'offset dans la table des codes ASCII. Cette table réside en ROM 3, à l'adresse *E8C5, et son 
début est pointé par le contenu de *2A7 et *2A8. Nous pouvons doncécrire une nouvelle 
table en RAM, en assignant à chaque touche le code désiré. Mettons en *2A7,*2A8 la 
nouvelle adresse de la table, et c'est tout! C'est aussi un moyen de placer des caractères 
semi-graphiques dans des lignes de REM Pour améliorer la présentation des listings, il 
suffit d'assigner dans la table un de ces caractères à une touche, et le tour est joué. 


Profitons de la simplicité de ce programme pour voir quelques trucs bien utiles : 
-Le code ASCII du curseur se trouve en #75. 


- L'autostart d'un programme machine en fin de chargement est réalisé par un 
saut donné en *2D4, où se trouve l'adresse de la routine qui stoppe le moteur du 
magnétophone. Remplaçons cette adresse par celle de notre programme, et le lancement 
devientainsi automatique, dés la fin du Chargement. 


- Protection du programme machine : notre routine est placée en début de RAM 
utilisateur, et il faut ajuster le pointeur #298 à l'adresse qui suit la Па de notre routine, 
éventuellement ajuster la taille de l'espace réservé aux chaines et tableaux à sa valeur 
par défaut (*100 en *29D,*29E), puis ajuster les autres pointeurs Basic en appelant la 
routine *DEB8. Le retour au Basic se fait par un saut à 50730. 


Ne pas oublier de sauver le code machine à partir de *2D4, avec ce pointeur modifié 
(saut au programme utilisateur). Plus besoin ainsi d'avoir à se rappeler l'adresse de 
lancement du programme chargé. Et c'est bien agréable ! 





0000 інокочевосваоверожововововововаєсовоооатеваваєтовенамх 030b 21260 ABLE 
0000 joan CLAVIER AZERTY зве O30 pres Sup" шы NEW TABLE IN USE 
0000 Lens pour 16 DAI MA 0311 212500 їн CURIN Ч 
0000 jane (c) Alain MARIATTE zen 0318 367Е MIK or 3НЕУ CURSOR 
0000 Zens one 0316 Et POP H й 
0000 youn SOURCE SPL eee 9317 C9 RET 
0000 jevannnanonoknoorenaonmwannsnentsnbenrdanssanesensnnen 0318 Е5 QWERTY PUSH H 
0090 H 
; 0319 24CsE8 
0000 i Mettre GEC en #205, #02 en 4206 et sauver le 0316 гане En ^ Br 
0000 morem. Get Se m 23 PUn азі, ET est 031F 217500 Lat H CURIN 
i ‘eu ement et зе positionne em clavier 0322 36 Wee TCURRENT CURSOR 
0000 sAZERTY. Les pointeurs basic sont ajustes, et le за Ний Por H j ! 
0600 sprogramue est protege. Pour repasser en : 0325 C9 RET 
9000 ў - QWERTY = CALLM0348 (curseur habituel) 0326 ; 
5000 о AZERTY = CALLH$30A (curseur tilde ^) 0326 }--- TABLE REMPLACANT CELLE EN RONG (Е8С5Н-Е9ЗАН) --- 
ee man mensen aen — 0326 5 
0000 $ 0326 03132 TABLE DB 4 CI PEUT 
9000 $=02А? ТРТ ЕШ 2A7H ЯРТВ TO TABLE ASC.CDES 0926 а DB — — 
0000 geE8C5 KEYIU ЕШ) 96858. ЗРАГ ASCI] TABLE 0337 514283 DB " BBCDEF GHI ОК ИНОР · 
0000 9=0295 НЕР ЕДО 2988 3START HEAP 0347 415253 DB 'ARSTUVZXYW[^ ' 
000 $«029D HSIEE Ей) 2904 3SUZE OF HEAP 0358 000840 DB 08,88, 10H, 14H, 12H, 43H 
00 @=DEBS ИНЕ ЕШШ ODEBOH 1808 NES 035A 090000 DB sä, вой, 5РН 
0000 ф=С2А0 BASIC EAU 007408 JUMP TO BASIC 035Р 212223 DB Hus ” ° 
0000 090025 CORIN ЕШ ?5H $CURSOR INFORMATION 0365 27 DB 278 
0000 0204 RECLOSE ЕШ ZDAR STOP CASS. MOTORS 0366 28292А DB "есе?" 
Seed 940855 STOPH EQU ODARSH STOP MOTORS ROUTINE 036E ob DB орӣ 
H ОЗЕ 716263 DB ‘abcdef ghi ўзвар" 
0000 ове 2ECH 0372 617273 DB tarstuverye)” ' 
— uir Ош, Я БЫ ыг Отон ROUT INE 9380 000844 DB 8, 88. ЗАВ, al, 168 
бата 220502 5Ш ВОЗЕ р б ap | бо ея 
0285 219203 AXIE ЕВРЕ ЗЕН OF MLP 
0228 229802 SHLD HEAP 
O2Pb 210001 LXI В 1008 DEFAULT SIZE 
SS ES ые 
CALL, Р 
а пва саа най JADJUST POINTERS 
0307 C3A0C7 ЧИР BASIC 3INTO BASIC MONITOR 


930A ES AZERTY PUSH H 
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Chaque possesseur du VC- 1541 connait la signification de l'asterisque (777) devant Је 
filetype qui signale un fichier ouvert Le signe ‘plus petit que C £7) est par contre moins 
Courant Comme lasterisque. on ne peut pas leffacer avec l'ordre SCRATCH. Cette 
impossibilite est malheureusement passee sous silence dans le manuel du floppy Le but de 
cet article est de chercher pourquoi le DOS ne fournit pas d'instructions comme ‘LOCK’ et 
UNLOCK pour permettre et interdire l'effacement de fichiers 


Le bit 6 de Госіеі filetype est responsable de cette protection contre l'effacement. S'il 
esta 1 SCRATCH ne fonctionne pas pour ce fichier 


Le programme liste ci-dessous donne la possibilité d'envoyer dans la RAM du floppy 
des programmes écrits en assembleur 6502 On le démarre avec les ordres UC et US. Ceci 
présente contrairement а l'instruction ME (Memory Execute) la possibilité de transmettre 
des parametres (dans le cas present. un ou plusieurs noms de fichiers) 


Un fichier est protege avec COM" UC:nom-de-fichier' et déprotégé avec UD. La 
Syntaxe est la meme que celle SCRATCH, les jokers et nom de fichiers multiples peuvent 
aussi êtres utilisés. Avec l'astérisque. on peut par exemple protéger tous les fichiers. Le 
programme en LM est enregitré sur la disquette sous le type USR. Cette méthode présente 
par rapport au stockage dans un secteur et appel avec BE (Block Execute!) l'avantage de ne 
pas perdrele programme lorsd'un VALIDATE 


Malheureusement, les fichiers user limitent l'efficacité du LOCKage des fichiers, et 
ils пе sont pas mentionnes dans le manuel De plus, ils devraient étre utilisés pour 
l'autodemarrage apres un RESET ou une mise sous tension. mais cette possibilité pourtant 
prévue dans le DOS ne fonctionne pas 


Tout d'abord au sujet de l'organisation d'un fichier user: les deux premiers octets 
représentent l'adresse de départ du programme: l'octet de poids faible puis celui de poids 
fort. Le groupe de deux octets suivant annonce le nombre d'octets qui suivent. Aprés les 
données: le checkum Apres le checksum peuvent suivre d'autres programmes avec leur 
adresse de départ, etc... La longueur est alorsannoncee avec seulement un octet, les longs 
programmes devant donc étre décomposes en plusieurs parties. 


Un fichier user doit être envoyé dans la RAM du floppy avec un '& (ex: 
COM"&UN/LOCK"). le `& en première position sera lu lors du traitement du nom. Après 
chargement, le programme sera automatiquement exécuté. Des la fermeture avec RTS. le 
bloc précédent sera exécuté. etc... jusqu'à ce que le premier soit atteint. сесі pouvant etre 
désagréable dans le cas d'un long programme (voir plus haut). ll faut ou bien que le 
pointeur de pile soit adapté au dernier bloc, ou bien que le premier octet d'un bloc 
programme soit un RTS. Dans ce cas, on peut empêcher l'autostart du fichier entier. 


En plus des messages d'erreur habituels, 2 nouveaux sont ajoutés lorsqu'on utilise des 
fichiers user. 


- 50 RECORD NOT PRESENT (ily a une erreur de checksum). 


- 51 OVERFLOW IN RECORD (le dernier bloc programme ne contient pas assez 
de données {l'actet de longueur est incorrect!) 


Le fichier user est créé avec le programme Basic suivant: 
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10 OPEN 182 "KUN/LOCE U W" 
20 READ ADDR.IF ADDR:*FFFF THEN CLOSE LEND 
30 CHKSUM-0:BYTE-ADDR LAND *FF-GOSUB 70 
40 BYTE-ADDR SHR 8:GOSUB 70 
50 READ BYTE-GOSUB 70 FOR 1-1 TO BYTE 
80 READ BYTE-GOSUB 70.NEXT.PUT* 1 CHESUM.GOTO 20 
70 CHKSUM-(CHKSUM-BYTE) MOD *FF.PUT* 1 BYTE RETURN 
100 DATA 4610,102,% A0,*05,* B9, 270 206 #99 #00 205 255 * 10 «F7 #60 
110 DATA “А9 “29 28) 956 “06.“А9 “ВР *8D #57 #06 #40 #33 #06 A9 #00 
120 DATA #80,#56 #06 # A9,740,*8D,*57,*06.* A9, = ОА #SD #24 #02 #20 “рр *C] 520 
*98,*(3 
130 DATA “20 =20,*С3.*20,=СА *C3,* A9 20) #85 #86 920 “9 #04 #30 2 15,220 5 7 
*DD,*90,*0B n 
140 DATA *A0,^00,*B1,*94,?FA SEA *20,"B9, "CS #F6 286 “20 “88 =С4 = 10 “ЕВ «20. | 
*10 #06 
150 DATA *A5.*86,*85,*80,*68 #55 “до #00 #4С 205 #4С 229 #06 246 #10 506, | 
99999 1 











PETITES ANNONCES 


Vends DAI en panne mais reparable : 10000 Fb. KENDOS 2 x 800 К et noubreux 
Programmes ; 50000 Fb (les 2 pour 55000 Fh), Filip D'Haese, bld Р, H. Spaak 6 
В-7800 Leuze-en-Hainaut. 


Vends KENDOS 2 x 900 E plus une quarantaine de disquettes {soit une des plus 
grandes programmatheques existant sur le DAD? * en EPROM sur la carte KENDOS: COM 


FWP, CP/M, DISK-WIFE. Prix : 43000 Fb. Marc Vandermeersch (IDC asbl), 


Vends Memocom avec cables et EPROM poignees de jeu, processeur arithmetique, 
cables divers, cassettes DCR et AUDIO pleines de programmes, plusieurs kilos de 
documentation, PRIX tres BAS, Contactez Remi Arnaud au 53338582, ou ecrivez 
Chemin des Pepinieres, F-87340 La Jonchere Saint Maurice, 


Vends intertace VC1541 + TOS + 2 eprons ( DOR +£ 
Victor Nijs, rue Marchand 3/7, Н-4530 Hermalle, 


1341) pour 2500 Fb. 


Vends synthetiseur vocal fdecrit dans DAICLIC 7) completement nonte,alinen- 
tation exterieure (раз de Parasites), le tout dans un tres beau boitier. Prix 


4000 Fh soit le prix des conposants . Vends Souris cablee pour le DAI : 2000 Fb, 
Werner Persoons, rue de la Cordialite 14, B-1080 Bruxelles 


Vends Menocon MDCR avec cables et EPROM (TOS) ou echande contre Commodore 
64, Prix sacrifie. К? ПСЕ, Philippe Verhaege, rue de la Ture 8, 8-7300 Tournai. 


Vends SOURIS cablee pour le DAI + рда de DAO : 2500 Fh. Е, Duluins (IDC). * 


REMARQUE: Ces petites annonces gratuites pour lesabonnés sont exclusivement 
réservées à des propositions entre particuliers sans objectifs commercial et relatives à 


l'informatique. DAICLIC se réserve le droit de refuser une annonce sans avoir à fournir de 
justification. 
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In dit artikel wilde ik een door 
mij geschreven programma bij U intro- 
duceren, 

Dit programma heet ‘Functie Tekenaar' 
en uit die naam kan al worden opge- 
maakt dat het een programma is dat de 
gebruiker in staat stelt er functies 
mee te laten tekenen, 

In de afleveringen van de laatste 
DAInamics heb ik nogal uitvoerig over 
allerlei functies gesproken, die in 
de DAI standaard zijn opgenemen. 

Maar er zijn natuurlijk ontelbaar 
veel meer functies. Die functies, die 
op te bouwen zijn met de standaard- 
functies zijn met dit programma heel 
eenvoudig te onderzoeken, 

Het lijkt mij daarom zinnig dit 
programma te bespreken, 

Functie 
Tekenaar 


Het programma zal binnenkort bij 
DAInamic uitgebracht worden tesamen 
met een aantal statistiek programma's 
en het lineaire regressie programma 
dat al eerder in DAlnamic werd aange- 
kondigd. 


Inleiding 


Het programma FT (functietekenaar) 
is een krachtig programma dat, alhoe- 
wel voornamelijk in basic geschreven 
de gebruiker in staat stelt allerlei 
functies eenvoudig te onderzoeken. 

Het programma is gebruikersvrien- 
delijk opgezet. Het maakt gebruik van 
een aantal machinetaal routines die 
al tijdens de intro op hun plaats 
gezet worden, Het gebruik van deze 
routines maakt het echter wel aan te 
raden na gebruik van FT де DAI even 
te resetten alvorens iets anders te 
gaan doen. 


Invoer 
De te onderzoeken functies worden 


eenvoudig tijdens het programma 
ingetikt, Het programma geeft dan 


“ruime edit mogelijkheden, 


De functies moeten worden opgegeven 
in de volgende vorm : 


f: X - ‘een of andere expressie met 
eventueel de variabele Х' 


Voor diegenen die nu op school 
zitten of daar niet te lang geleden 
op zaten de meest gebruikelijke vorm 








om functies in op te geven. 

Voor degenen die meer vertrouwd 
zijn met de vorm Ё(х)-Техргеввїе" еп 
dit ook hier in dit programma graag 
zouden zien geldt dat dit eenvoudig 
zelf in basic is te wijzigen, 

Het zal duidelijk zijn dat de 
expressie in een voor de DAI begrij- 
pelijke vorm moet zijn. 

De aldus ingevoerde functie wordt 
in de vorm : 


100 Y='de ingevoerde expressie! 


opgenomen in de listing van het 
basic-programma. 

De ingevoerde expressie wordt als 
String behandeld tot hij de gewenste 
vorm van een basicregel heeft, Deze 
regel wordt vervolgens in het basic- 
programma opgenomen. 

Hiervoor gaat mijn dank uit naar 
de wonderdokter Nico Looi je, 


Fout bij invoer 


Is de ingvoerde expresie niet voor 
de DAI begrijpelijk grijpt een aange- 
paste versie van de errortrapping in 
en kunt u de invoer corrigeren, 

Hiervoor is een soort editbuffer 
Becreerd zodat de editing simpel is, 

Deze zelfde editbuffer kan ook ais 
dat gewenst wordt, gebruikt worden 
bij de eerste keer invoeren, 

То absolute noodgevallen kan voor 
zeer uitgebreide functievoorschriften 
de aanwezige ruimte op beeld ontoe- 
reikend zijn, In dat geval kan de 
functie altijd nog als regel 100 
Opgenomen worden, Zou zelfs dat niet 
voldoende zijn, dan kunnen alle 
regelnummers tusen 90 en 110 de Y 
stap voor stap opbouwen, 

Sni jpunten 


Er kunnen twee functies tegelijk 
in het geheugen van de DAT opgeslagen 
worden. 

Met deze mogelijkheid kunnen simpel 
snijpunten van twee functies in het 
onderzochte interval bepaald worden, 

Meer dan twee is - na een tamelijk 
eenvoudige aanpassing — wel mogelijk 
maar lijkt mij niet zo nodig bij een 
normaal gebruik, 


Intro 


Het programma start met het 
introductieplaat je en wacht dan op 
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ееп toetsaanslag. De eerste keer 
wordt tijdens dit wachten een tweetal 
machinetaal programma's weggePOKEd. 
Bij een latere run na een onder- 
breking zal dit niet meer geschieden, 


Onderbreking 


Loopt het programma om een of 
andere reden vast of wenst u het te 
onderbreken kunt U er meestal met de 
[BREAK ]-toets weer uitkomen. 

We kunnen dan herstarten met 'CONT' 
of 'RUN'. (geen gePOKE ditmaal) 

Met 'RUNI000' om te starten met 
hoofdmenu in default en 'RUNI020' om 
te starten met hoofdmenu met behoud 
van de ingestelde waarden, 

Het is natuurlijk mogelijk na 'RUN' 
een keus te bieden uit de hiervoor 
beschreven mogelijkheden maar 
aangezien het hier exclusieve toepas- 
singen betreft heb ik daar niet voor 
gekozen, 





De op de voorgrond staande functie 
blijft in alle gevallen behouden. Hij 
staat immers in regel 100, 

De andere functie, die in een 
string staat zal bij de 'RUN' gereset 
worden. 


Hoof dmenu 


In het hoofdmenu krijgen we de 
volgende tekst in beeld : 


FUNCTIE - TEKENAAR 
Е.Н. Druijff 


Ga met de cursor naar de gewenste 
positie en tik daar dan de nieuwe 
waarde in. Nieuwe functie met 'Е' of 
ЈЕ' of !'G', 

Geen verandering bij onmogelijke 
waarde, Eindig met [RETURN] 


En verder een hele lijst met keuze 
en instelmogelijkheden die ik de 
straks de revue laat passeren, 

Om een nieuwe functie in te voeren 
kunnen we uit meerdere mogelijkheden 
kiezen, 


ТЕ", с” еп et 


De plaats van de cursor is niet van 
belang. Hierop is jammer genoeg een 
kleine uitzondering. Als we bezig 
zijn met het invoeren van een van de 
in te stellen waarden zou daar 





eventueel een van die letters in 
kunnen voorkomen. Zij worden dan als 
invoer voor die waarde beschouwd. 

Ik geef ter verduidelijking een 
voorbeeld : 

U wilt de maat op de x-as gelijk 
aan het getal e hebben. Bij de maat 
voor x tikt U hiervoor EXP(1) in 
zodat de DAI nu deze waarde bepaalt. 
Het zou dan erg lastig zijn als 
het programma op de 'Е' van 'ЕХР'! zou 
reageren om de functie te veranderen, 


'Е' De functie die aanwezig was wordt 
verwijderd uit beeld, (Op regel 
100 staat hij dan nog wel !) En dan 
kunnen we een nieuwe functie gaan 
intikken. 





"С" De functie die er stond wordt op 

de plaats van de tweede functie 
gezet en die komt nu in beeld. Deze 
functie kan dan aangepast / veranderd 
worden, 


'E' De functie blijft in beeld staan 
еп op een EDITbuffer-achtige 
manier kunt U de functie wijzigen, 


De cursor springt als er geen fout 
gemaakt werd naar de positie terug 
die hij innam voor de functieveran- 
dering. 


Keuzes 


We krijgen in het hoofdmenu een 
keuze aangeboden tussen de volgende 
alternatieven : 


assen / rooster 
In het eerste geval krijgen we alleen 
de assen (als die tenminste in beeld 
staan) en de maatverdeling. Bij de 
keuze 'rooster' krijgen we ruitjes. 


punten / lijnen 
Bij de keuze 'punten' worden alleen 
de uitgerekende punten neergezet (als 
die op het beeld passen) en bij de 
keuze 'lijnen' worden de opvolgende 
punten verbonden, In combinatie met 
de tekennauwkeurigheid kan de teken- 
snelheid hiermee enorm worden opge- 
voerd maar we interpoleren en daar 
kunnen fouten door ontstaan, Vandaar 
mijn keuze voor default 'punten'. 


geluidssignaal aan / uit 
Komt bij de berekening voor een punt 
een fout te voorschijn (delen door 
nul of de wortel uit een negatief 
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getal bij voorbeeld) wordt bij die x- 
waarde zowel boven als onder ín beeld 
een punt gezet in een afwijkende 
kleur. Wij worden nogeens extra op 
deze bijzonderheid atent gemaakt door 
een geluidssignaal, 


Instellingen 


tekennauwkeurigheid = 10.0 
Dit betekent dat we om de tien hori- 
zontale BEELDpunten een punt gaan 
Бера1еп. Aangezien het programma in 
een gemodificeerde MODE 6A werkt 
hebben waarden boven de 100 weinig en 
waarden boven de duizend geen zin. 

Hoe groter de waarde bij de teken- 
nauwkeurigheid is hoe sneller de 
functie getekend zal zijn. 

Waarden onder de een kunnen wel 
degelijk zinvol zijn om de ‘slingers! 
van een functie goed te volgen maar 
minder dan 1/256ste is onzinnig. Het 
kost alleen maar extra tijd. 


maat voor beide assen = 1.0 
vermenigvuldigingsfactor 
voor maat = 1,0 

In feite worden alleen de maat op de 
x-as en de maat op de y-as in het 
programma gebruikt, maar voor gebrui- 
kersgemak is gekozen voor het ook 
opgeven van de maat voor beide аззеп. 

Een hier opgegeven maat staat na 
tekenen ook niet meer op deze plaats 
maar is verwerkt in de maten van de 
afzonderlijke assen, 

Voor de vermenigvuldigingsfactor 
heb ik bewust een wiskundig onjuiste 
aanpak gekozen, Als iemand zegt 'maak 
de maat eens tien maal zo groot! 
bedoelt hij meestal ‘vergroot de 
grafiek met een factor tien! of 
beter gezegd ‘zoom eens in' want het 
beeldscherm wordt niet groter, Om het 
door hem gewenste effect te verkrijgen 
moet de maat door een factor tien 
gedeeld worden, We tellen per hokje 
met 1/10de in plaats van 1 op. De 
maat wordt dus kleiner. Toch bleek in 
de praktijk dat ik en ook enige 
anderen zich regelmatig vergisten en 
verkleinden als ze wilden vergroten 
en omgekeerd, Daarom toch vermenig— 
vuldigingsfactor als het deelfactor 
zou moeten zijn. Zowel naam als 
effect zijn simpel te veranderen voor 
gebruikers die wel wiskundig correct 
wensen te werken. 


De maten voor alleen x-as en y-as 
zijn ook apart іп te stellen, evenals 


de vermenigvuldigingsfactoren daar- 
voor, 


functie-translatie in de 
x-richting en y-richting 
Met deze waarden kunnen we de gehele 
grafiek verschuiven. Ook hier is 
gekozen voor de intuitieve notatie, 

Wil ik de hele grafiek vijf hokjes 
naar boven verschuiven geef ik (bij 
maat 1 tenminste) een translatie van 
5 ор іп de y-richting. 

Hebben we geen maat 1 meer kan ik 
ook gewoon vijf hokjes opgeven door 
bij de maatgebonden translatie 5 bij 
de y-richting in te geven. Net zoals 
de vermenigvuldigingsfactoren worden 
deze maatgebonden translaties verre- 
kend іп de 'echte' translatie, 


Onmogelijke waarden 


Bij elk van de vorige waarden zijn 
bepaalde waarden uitgesloten. 

Een maat van О is onzinnig. 

Tikt iemand dan toch zoiets in zal 
deze onzin worden vervangen door de 
vorige waarde, Heeft iemand dus per 
ongeluk een waarde verminkt kan hij 
altijd door О op te geven de oorspron- 
kelijke waarde weer terug krijgen. 


Domein 


Tot slot kan het domein van de 
functie beperkt worden om te lange 
berekeningstijden te voorkomen, 

Deze optie is echter minder krach- 
tig dan men zich zou wensen. 

Alle gewenste beeld x'en worden 
omgewerkt naar 'echte' x-waarden en 
die worden dan gecontroleerd of ze in 
het domein zitten of niet. Als ze er 
niet in zitten wordt de bijbehorende y 
niet uitgerekend, Alleen hier zit er 
tijdwinst, Om de domeingrenzen om te 
rekenen naar beeldgrenzen is lastig 
bij monotone continue functies en 
onmogelijk (voor de DAI) bij functies 
die dat niet zijn. 


Cursor 


De uitgangspositie van de cursor 
is tussen de twee blokken in, net 
iets boven het midden van het beeld, 

Zit de cursor daar niet maar 
elders druk dan op de spatiebalk, 
waarna de cursor naar de uitgangs 
positie zal gaan, Het verschijnsel 
komt door het 'LIST'en van de regel 
met de functie terwijl een toets 
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(al of niet bewust) werd ingedrukt, 


Voor de cursor worden meerdere 
symbolen gebruikt. Het ‘normale! 
teken voor de cursor is CHR$(29), 
Tijdens invoer van nieuwe parameters 
wordt CHR$(95) gebruikt еп tijdens 
invoer een nieuwe functie СНВ%(11). 

Bij de foutmeldingen worden weer 
andere cursortekens gebruikt. 


Bewegen over beeld 


De cursor kan simpel over het 
beeld heen bewogen worden in 
vertikale richting door middel уап de 
cursortoetsen voor op en neer. 

Bevindt de cursor zich in het 
bovenste blok (op de drempel wordt 
hij wit) kan men met de cursortoetsen 
voor links en rechts de instelling 
veranderen, 

Na een eventuele foutmelding komt 
de cursor automatisch weer op de 
vorige plaats terug. 

Het invoeren van een nieuwe 
parameter doet men simpel door hem in 
te tikken op de juiste plaats, 


Return 


Met het drukken ор de [RETURN ]- 
toets verdwijnt het menu en gaat de 
DAI de grafiek van de opgegeven 
functie (trachten te) tekenen, 

De cursor zal op dat moment CHR$(29) 
moeten zijn anders wordt de [RETURN] 
gezien als einde invoer. 

Dit is dus een van de redenen voor 
de verschillende cursors. 


Tekenen 


De DAT maakt de grafiek van de 
opgegeven functie rekening houdend 
met de gewenste parameters, 

Tijdens het tekenen staat ook de 
tekst "ІК teken пи 11!" in beeld, 

Dit; omdat het bij een verkeerde 
parameterkeuze heel erg lang kan 
duren voordat er iets in beeld veran- 
dert, Is de DAI klaar verandert de 
tekst 'Ik teken nu !!!' in een mini- 
keuzemenu : 'D/E/F/G/M/T/cursor'. 


Submenu 1 


"Б", ҮЕ! en 'G' hebben hier dezelfde 
betekenis als in het hoofdmenu, 

De functie wordt echter in splitmode 
opgegeven en de grafiek die we net 


maakten verdwijnt dus niet. 


'D' en "М' laten ons beide naar het 
hoofdmenu terugkeren, Met 'D' worden 
echter alle parameters weer op hun 
default waarde gezet. 


Met 'T' komt een klein kruisje in 
beeld en verandert het submenu in het 
volgende submenu : 'M/O/Y/X/Y/cursor' 


Submenu 2 


We bewegen met de cursor het kruisje 
in stappen van tien beeldpunten over 
het scherm. Met shift erbij bewegen 
we in stappen van een beeldpunt. 


'M' - ga terug naar het hoofdmenu, 
'0' - Plaats kruisje in de oorsprong. 


In de andere gevallen gaan we de 
functie opnieuw tekenen, Het vorige 
beeld raken we hierbij kwijt. 

De plaats van de grafische cursor 
(kruisje) wordt nu het beeldmidden. 

Tevens wordt een vergrotingsfactor 
tien toegepast. We krijgen zo een soort 
loupe, die we op de functie leggen, 
Met 'V' worden beide maten aangepast; 
met 'Х' alleen de x-maat en vanzelf 
met 'Y' alleen de y-maat. 


In het eerste submenu (na tekenen) 
konden we ook de cursorknoppen gaan 
gebruiken. Doen we dit krijgen we 
vanzelf submenu 3 : 'cursor/T/G/M'. 


Submenu 3 


Met de cursortoetsen kunnen we 
lijnen over het scherm laten bewegen. 

Deze lijnen komen van de beeldran- 
den af en gaan naar het midden toe. 

We kunnen zo een rechthoek afbake- 
nen, die als we de returntoets hebben 
ingedrukt, wordt opgeblazen tot een 
beeldvullend geheel, 

Hebben we een van de lijnen per 
ongeluk iets te ver gezet kunnen we 
door de shift gelijktijdig met de 
cursor te bedienen de richting 
omdraaien, 


Een vervelende bijkomstigheid van 
deze oplossing was dat de maten op 
x-as en y-as niet gelijk bleven, 

Door echter 'G' te geven wordt de 
vergroting minder sterk maar in ieder 
geval zodanig dat de maten gelijk 
blijven. Ook kan het vervelend zijn 
ais er een translatie van de oor- 























De DAI is inwendig uitgerust met een connector waarop 
adres lijnen, data lijnen en diverse controle signalen 
uitkomen. 

Deze connector wordt de "Х” bus connector genoemd en is 
zeer geschikt voor uitbreidingsmogeli jkheden. 

Een van deze mogelijkheden is een Eprom kaart waarbij 
de vrije adres ruimte van #2000 tot #F7FF gebruikt wordt 
voor een besturings programma b.v. voor DCR of High 
Speed Loader. 

Door middel van z.g. bank switching kan men hier ook 
grotere bestanden in onder brengen. 

Wij zullen echter alleen het schema voor de besturing 
van een Eprom van het type 2716,welke 2Kbyte kan be~ 
vatten, behandelen. 


Beschrijving schema. 
Het schema is zeer eenvoudig. Het bestaat uit twee IC’s 
nel de Eprom 2716 welke aangesloten wordt op de adres 
lijnen AO t/m 810, de data lijnen DO t/m 07 en DE. 
De selectie van de Eprom vindt plaats d.m.v een TTL 
bouwsteen van het type 7415151. 
Als de signalen 812 t/m А15 "Н" zijn (ҒО) en А11 is "L" 
gaat de uitgang (het signaal W) op pin & laag. Dit is 
het CE signaal voor de Eprom en maakt deze actief (Mits 
OE actief is). 
De adres counter kan пи het adres bereik van О tot 7FF 
doorlopen. Dit is tot alle bits van АО t/m A10 "Н" 
zijn. Bedurende deze tijd kan men de 8 data bits via 
DO t/m 07 uitlezen. 
Wordt nu echter 811 “H", adres #F800,dan schakelt de 
uitgang van de 7415151 om ор "Н" omdat de ingangs sig- 
nalen niet meer aan de juiste voorwaarden voldoen en 
maakt de Eprom inactive. 
De constructie van deze kaart is niet moeilijk.De сопо 
nector is meestal in een goede elektronika zaak ver- 
krijgbaar evenals een stukje gaatjesboard twee ТС voeten 
en een condensator. 
Als Ц klaar bent met de bouw meet dan eerst alle sig- 
nalen van de connector naar de IC voeten door en zorg 
ervoor dat er nergens sluiting is. 
Een voortijdig einde van Uw DAI is het laatste wat ik 
U zou wensen. 


Geleen, jan 1986 
H.Rison 
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Hieronder vindt u de listing van een gebruikersvriendelijk tekenpro- 

















gramma, Nadat u 4 kleuren naar wens hebt opgegeven, tekent u de 
contouren als volgt: u stuurt met de cursortoetsen een knipperend 
4 blokje (bij SHIFT + cursor loopt het blokje met 10 stappen tegelijk). 
20 š Drukt u op de spatiebalk, dan zal op de plaats van het blokje een 
4 4 puntje blijven staan. U stuurt het blokje verder, еп als и dan weer ор 
2 š de spatiebalk drukt dan ontstaat er een lijn tussen de vorige en de 
АЗ 18 3 huidige positie van het blokje. Als u klaar bent met de contouren, dan 
Bl —— — — 8 kunt u gesloten vlakken inkleuren, Dit gaat met basic-paint, dus niet 
36 А& „| 2716 pex 222200 zo snel. Bent u in het bezit van de machinetaal versie, dan kunt u het 
33 A5 3 15 5 12 programma aanpassen, Andere mogelijkheden zijn: per regel de kleuren 
3; АБ 2 16 6 ” veranderen, binnen een rechthoekig vlak de contour uitwissen, de 
An vi 17 7 tekening ondertitelen in vergrote letters, еп van mode бА naar 6 gaan. 
So 16 Het gaat te ver om daar de details van uit te leggen, men probere deze 
32—23 mogelijkheden zelf uit. 
29 A9 22 
23 A10 19 Summary 
24 OE 20 This is a user-friendly drawing program. You can set the contours of 





the drawing by using the cursorkeys (+ SHIFT: 10 steps at a time). 
After you finished this, there are several possibilities: PAINT, 
change the colours below a certain line, change to mode 6. If you want 

X BUS CARD to make a photograph of the drawing, you can have it subtitled. Type 
it in and try it ! 

































26 
25 Aad de Bruijn 
28 Heerenlaan 14 
a NL-3218 VL Heenvliet 
135,7 10 GOTO 500:REM *** 100-180 MOVE DOT жж 
Мезе E 100 C=SCRN(X,Y):DOT X,Y 21:МАТТ TIME 2:H=GETC:DOT X,Y C:IF H=0 GOTO 100 
jan.86 110 ТЕ H<16 GOTO 180:1F H>23 GOTO 180:V=H/20*9+41 
H.Rison 120 ON H MOD 4 GOTO 140,150,160 
130 Y=Y+V:IF Y<YMAX GOTO 170:Y=YMAX:GOTO 170 
140 YzY-V:IF Y>O СОТО 170:Y=0:GOTO 170 
| 150 X=X-V:IF X>0 СОТО 170:X=0:GOTO 170 
160 X=X+V: IF X<XMAX GOTO 170:X=XMAX 
170 CURSOR 3,3:PRINT X;" ":CURSOR 3,2:PRINT Y;" " 
180 RETURN:REM жж 200-260 PAINT *% 
Cont from p. 35 200 IF SCRN(X,Y+1)<>CK THEN Y=Y+1:GOTO 230:REM BOVEN 
й 210 ТЕ SCRN(X+1,Y)C>CK THEN X=X+1:GOTO 200:REM RECHTS 
220 ТЕ SCRN(X,Y-1)4»CK THEN Y=Y-1:GOTO 210:REM BENEDEN 
230 ТЕ SCRN(X-1,¥)<>CK THEN X=X-1:GOTO 220:REM LINKS 
sprong plaatsvindt, maar met de keuze 240 К=Х-1:ТЕ X=BX THEN IF Y=BY THEN IF F=l GOTO 260:Е=1 
'T' voorkomt men dat. 250 К=К+1:ТЕ SCRN(K,Y)<>CK GOTO 250:DRAW X,Y K-1,Y VK:GOTO 200 
Ik weet dat het natuurlijk onlogisch 260 RETURN: REM *** 300-330 DRAW LINE *** 
is ош met 'Т' juist NIET transleren 300 GOSUB 100:1F Н=13 GOTO 400:1F H<>32 AND НОВ AND H<>9 GOTO 300 
aan te geven maar dit onthoudt toch 310 ІК-СК:ІЕ Н-8 OR H=9 THEN LK=AK:F=9-H 
wel het eenvoudigst. 320 ТЕ F=0 THEN DOT X,Y LK:F=l:P=X:Q=Y 
330 DRAW X,Y P,Q LK:P=X:Q=Y:GOTO 300 
De volgende DAInamic een volledige 400 REM PREPARE PAINT k 
aankondiging van de hele band met wat 410 ТЕ X<12 GOTO 950:X=12:Y=0:PRINT CHR$(12); 
plaatjes ter illustratie. 420 PRINT "PAINT in colour";VK1;" or";VK2;" ";:РОКЕ #75,#FF:INPUT VK 
430 POKE #75,32:IF VK<>VK1 AND VK<>VK2 GOTO 410:PRINT CHR$(12); 
Frank H. Druijff 440 PRINT "x = 12 Move blinking dot into field to PAINT," 
450 PRINT "у = 0 then press the spacebar," 
460 GOSUB 100:IF H<>32 GOTO 460:X=X+1 
470 X=X-1:IF SCRN(X,Y)<>CK GOTO 470:X=X+1:BX=X:BY=Y:F=0:GOSUB 240:GOTO 1100 
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500 





REM *** TNITIALISATION 













































510 COLORT 8 0 0 15:MODE O:PRINT CHR$(12);:POKE #75,32 
520 FOR REG-O ТО 15:POKE #BFEE~REG*#86,192+REG:NEXT:POKE #B78E,#C8 
530 FOR REG-3 TO 20:POKE #BFEC~2*REG, #FF:NEXT 
540 FOR REG=0 TO 15:PRINT TAB(5-LEN(STRS(REG) )) ; REG: NEXT 
550 PRINT :PRINT "give the numbers of:":PRINT 
560 PRINT "backgroundcolour":PRINT "contourcolour" 
570 PRINT "first PAINT-colour ":PRINT "second PAINT-colour" 
580 POKE #75,#FF:A$=" "ACHRS(137)4" " 
590 CURSOR 20,4:INPUT AK:CURSOR 20,3:INPUT CK 
600 CURSOR 20,2:1NPUT VK1:CURSOR 20,1:INPUT VK2 
610 COLORG AK CK VK1 VK2:MODE 6A 
620 FILL 3,0 5,YMAX CK:FILL 6,0 8,YMAX VK1:FILL 9,0 11,YMAX VK2 
630 GOSUB 1000:GOTO 300 
700 REM Sick PHOTOGRAPHY 
710 FILL 3,0 11,YMAX AK 
720 PRINT CHR$(12);"subtitle ..... 1":РВІМТ "MODE 6 ....... 2" 
730 PRINT :PRINT "(after taking the picture press the spacebar)"; 
740 H=GETC:IF Н-49 GOTO 760:1F H=50 GOTO 750:GOTO 740 
750 MODE 6:CALLM #D6DA:GOTO 790 
760 PRINT CHR$(12):INPUT "subtitle (max. 36 char.) ";T$:IF LEN(T$)>36 GOTO 760 
770 PRINT CHR$(12);:G=#6A:POKE #7557,G:POKE #74D1,G:POKE #744B,G:POKE #73C5,G 
780 COLORT 8 0 8 O:CURSOR 18-LEN(T$)/2,3:PRINT T$:CALLM #D6DA:COLORT 8 0 0 15 
790 FILL 3,0 5,YMAX CK:FILL 6,0 8,YMAX VKI:FILL 9,0 11,YMAX VK2:GOTO 1100 
800 REM *** CHANGE COLOUR eek 
805 PRINT CHR$(12);"change colour of:":PRINT 
810 PRINT "contour ... 1":PRINT "field ..... 2"; 
815 H=GETC:IF H=49 GOTO 820:1F Н-50 GOTO 900:GOTO 815 
820 Х-12:Ү-0:РКЇХТ CHR$(12); 
825 PRINT "x = 12 move the blinking dot to the bottom left corner of" 
830 PRINT "у = 0 the rectangular area where the contour colour must" 
835 PRINT " be changed, then press RETURN"; 
840 GOSUB 100:IF H<>13 GOTO 840:XL-X:YB-Y 
845 CURSOR 39,3:PRINT "top right corner of "; 
850 GOSUB 100:1F H<>13 GOTO 850:XR=X:YT=Y 
860 PRINT CHR$(12); "change into colour number";AK;","3VK13" or";VK2;" "3 
870 POKE #75,#FF:INPUT PK: IF PK<>AK AND PKC>VKI AND PK<>VK2 GOTO 860 
880 РОКЕ #75,32:FOR X=XL TO XR:FOR Y=YB TO YT:IF SCRN(X,Y)=CK THEN DOT X,Y PK 
890 NEXT: NEXT:GOTO 1100 
900 Х=0:Ү=0:РКІМТ CHR$(12); 
910 PRINT "x = 0 move the blinking dot into the column (x < 12 !)" 
920 PRINT "y = 0 of which the colour must be changed, and to the" 
930 PRINT " highest line of the change, then press RETURN"; 
940 GOSUB 100:ТЕ H<>13 GOTO 940:IF X>11 GOTO 940 
950 PRINT CHR$(12);:INPUT "change into colour number ";РК 
960 POKE #75CO+Y*90, #CO+(X/3*#10)+PK:GOTO 1100 
000 REM *** MENU 1 eet 
010 PRINT CHR$(12);:POKE #75,32:X=12:Y=0 
020 PRINT "х = 12 draw line";A$;"spacebar RETURN while x < 12:" 
1030 PRINT "y = 0 erase line";A$;"char delete colour of this field" 
040 PRINT " reset & dot";A$;"tab & spacebar can be changed, from" 
050 PRINT " PAINT";A$;"(x > 11) RETURN у to bottom screen"; 
060 RETURN 
100 REM хк MENU 2 eek 
110 X=12:Y=0:PRINT CHR$(12);"PAINT .............. — RA 
120 PRINT "change colour ......... 2. 
130 PRINT а ган aas Sete meis 3" 
140 PRINT "photograph screen ..... 4"; 
150 H=GETC:IF H«49 OR H>52 GOTO 1150 
160 ON H-48 GOTO 400,800, 1170, 700 
170 F=0:GOSUB 1000:GOTO 300 
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Hello programmer, 


first of all we wish to thank all people who sent us a 
program to solve the problem we stated іп DAInamic 32 — DAIclic 5 з for the 
work they did searching and especially commenting the programs, All programs 
were very well written and commented, and it is a pity that there is always 
only one winner, Most of the programs were faster than we had made as examples, 
and some were a lot faster than we even dréamed of, Try to understand the next 
paragraphs, or type the following program in your computer, and you will be 
astonished by the speed this program can solve the problem. For a detailed 
description of the problem, look in DAlnamic 32 (january-february 1986). 


We will not describe all programs we received, since this 
would fill a whole editon on itself, and would interest few people, The one we 
are going to describe is the one who did the job the fastest of all. It is 
written in BASIC, so everyone should be able to make it work on his computer. 
ТЕ you want to read the detailed description, do not panic if you don't 
understand some, too mathematical, explanations. We didn't understand them too 
in the beginning, but if you look at the figures, you will understand, 


The program uses the WARNSDORF rule to find the solution : 
see : RECREATIONS MATHEMATIQUES by М. KRAITCHIK, BRUXELLES, Imprim. STEVENS 
freres, 1930 ; this is : 


- At each step, choose the square that communicates with 


the 
fewest possibles issues with the unoccupied part of the 
matrix , 
- If at a step several squares verify this condition, one 
is 


free to choose one of these squares, 


On figure 1 for example there are 3 squares possible from 
Square 10, noted A, B, and С, The number of Squares you can reach from A is 3, 
from B it is 6 and from C it is 5 : the rule tells you to pick location А to 
become square 11. 


Once the program has found a Solution, it uses the EULER 
transformation to search new solutions. This is explained in figure 2 : 


Consider the circuit going from 1 to N ( and N is 100 in 
this case ), and X is one of the squares that communicates with N ( 100 ) . We 
can then substitute the circuit 1 .. N by 1..Х followed by М. . (+1) in 
opposite direction, which will cover the same squares as before, We also get a 
new Location for № ( = 100 ) and can keep going on this way. 


There are also many possibilities of changing data, for 
example we can make a chess-like " horse move " by changing the value of var. 
NMOVE in line 50 and DATA in lines 90 and 100, or change the dimension of the 
matrix ( change DMX and DMY in line 50 ), 


That was all about the program, The following are the 
winners for each language class: 


BASIC : Herbertz Alain : 46 sec 480/1000 
PASCAL: Marc Expeels 
D-BASIC: John Mitchell 


mach, lang.: no volunteers 
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Alt other candidates should have got a litle surprise too ; 


if not, please write а note. ТЕ you wish to receive other contesting programs 
than the one we described, please write a note too on the following address: 


Paul Gobert 
De Bergen 49 
В-2241 ZOERSEL 


We hope you and your РАІ got а lot of fun making the 


programs, and if you have other interesting computer problems, you can also 
send them to that address, Maybe it 1$ worth another contest. 


Paul Gobert, Luc Maes, 





































PAGE 01 -- SOLUTION CONTEST 

5 GOSUB 600 

10 EM * ^» 

20 REM Ж  Initialisations and Limitations 

30 REM жоко дадди ЗЕТА ЖОК ЈЕНЕ kok 

40 CLEAR 1000 

50 NMOVE=8 : DMX=10 : DMY=10 

60 DIM DX(NMOVE) , DY(NMOVE) , A(DMX , DMY) 

70 FOR I-1 TO NMOVE:READ DX(I):NEXT I 

80 FOR I-1 TO NMOVE:READ DY(I):NEXT I 

90 DATA -3,3,0,0,-2,-2,2,2 

100 DATA 0,0,-3,3,-2,2,-2,2 

110 NP=1:XP=1:YP=1:A(XP,YP)=NP 

120 CL=LOGT (DMX*DMY )*1 .00001+2:РЕ$=РЕЕТ$ ("######" ,CL) 
130 REM около AEA e AE A A eee ee D ED ж 

140 REM Ж Search of a valid square | Ж 

150 ВЕМ ххк a ооо KE ОО 

160 NDIR=0:MIN=NMOVE+1 

170 FOR 1-1 ТО NMOVE 

180 XN=XP+DX (I1) : YN=YP+DY (І) 

190 ТЕ (XN<1 OR XN>DMX OR YN«1 OR YN>DMY) GOTO 330 
200 IF (ACXN,YN)>0) GOTO 330 

210 1 REM eech КК ЖОК 2 КОК DO ARS SI ааа ааа 
220 1 REM Choose the square with the fewest * 
230 1. movi ER possibilities * 
240 е " — — ок 
250 NUM 0: XT=XN: YT= YN 

260 FOR J=1 TO NMOVE 

270 2 XN=XT+DX(J):YN=YT+DY(J) 

280 2 ТЕ (XN<I OR XN>DMX OR ҮМ<1 OR YN>DMY) GOTO 310 
290 2 ТЕ (A(XN,YN)50) GOTO 310 

300 2  NUM=NUM+I:FF (NUM>=MIN) GOTO 330 

310 1 NEXT J 

320 1 MIN=NUM:NDIR=I 

330 NEXT I 

340 REM зоос 

350 REM * No val 

360 REM ха 

370 IF (NDIR-O) GOTO 430 

380 NP=NP+1 :XP=XP+DX(NDIR) : YP=YP+DY(NDIR) : A(XP, YP)-NP 
390 GOTO 160 


400 
410 
420 
430 


440 
450 
460 
470 
480 
490 
500 
510 
520 


PAGE 02 


530 
540 
550 
560 
570 
580 
590 


600 
610 
620 
700 


ке RI оку не 







EM * Solution print 





"gU 
= i 
= 


ОКЕ 838, #C9:GOSUB 700:FOR 2-1 ТО DMY:PRINT "FOR 1-1 TO DMX:PRINT 
AB(I*4);A(T,J)::NEXT I:NEXT J:POKE #38,0 


на 


d 
Ki 





‚< = 


IR- 1. 

=XP+DX(NDIR) : YN=YP+DY(NDIR) 

(XNCL OR XN>DMX OR YN«1 OR YN>DMY) GOTO 470 
F ((A(XP,YP)-A(XN, YN) )=1) GOTO 470 
P=A(XN, YN) 
OR 1-1 TO DMX 


зт оны 





"Ud OH — > = = = = 


— SOLUTION CONTEST 





FOR J=1 ТО DMY 
IF (A(I,J)O(CP41)) GOTO 560 
ХР=1:ҮР=] 
IF (А(1,1)>СР) THEN А(Т,3)-3Р-14СР-А(1,3) 
NEXT J 
NEXT 
PRINT :GOTO 430 





REM % кжж TIMER SUBROUTINES Ни 

REM THESE WERE NOT IN THE ORIGINAL PROGRAM 

POKE #38,#C9:POKE #1BE,#FF:POKE #1BF,#FF:POKE #38,0: RETURN 
TIMER=(#FFFF-(PEEK(#1BE)+(PEEK(#1BF) SHL 8)))*20:CURSOR 0,15:PRINT " 
Tijd: ";TIMER;" msec,  ":RETURN 
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DAlnamic software 


now at the bargain price of 275 Bf/ 


As announced on р.44, you can 
tape. 


complete your DAI software library 
This is how the SUPER PROMOTION 


works: 

- all titles shouid be ordered from 
DAlnamic software Mottaart 20, 
3170 Herselt, or on one of the 


meetings. 
- extra for DCR : 300 Bf/16,50 Fi 


- mailing costs 100 Bf/6 Е! 
orders from J.Van Dunne Rotterdam. 


- please allow 2 weeks for 


- the price for one tape is 275 Bf 
delivery, 


The NEW DIRECTORY , published in 
this issue, is also available on 
/15 Fi. 


DAlnamic issues and order now the 
cassette/DCR. DCR and audio 


This offer concerns all the titles 
we released since the start of our 
activities, So dive into your old 
titles you always wanted .... 

- there is no mailing cost if you 
order on one of the meetings. 

- all orders should be paid in 

- The prices in guilden apply for 


versions are included on both 
advance. 


media! 


SOF TWARE PROMOTION 





en ith position 
end tab. 


35 characters) :? 


v 
v 
е 
д 
[3 
5 
т 
D 
© 
~ 
v 
5 
LÀ 
a 
@ 


3Set next adress 


37 SPACE? 

$ NEXT? 

5” LOAD? 

37 LOAD? 

$ 7 RUN? 

3? SKIP? 
sLength-byte 
3Евсаре 

3 tabulation 
$ end with 0 


3 
3 


KVDP 05/08/84 21.30 


E 


б 
D 


U, „UPDATE? 


(SN 
BDH, 1BH 
за” 

5.. 
0B7H, 95H 


BCH,OD9H 
if updating Directory 


?DIRECTORY DCR/i* 
"NAME * DATE (max 


он 


BH, OH, BH, OCH 


OCH 


` Bytes used’ 
орн, ODH, OH 
SEH, 56H 

> ЕЩЕ Le 
0H, 0H, OH, 5H 
OH, OH, OH, OH 
OH, OH, OH, OH 
OH, OH 
$40FH&OFFFOH 


7 Files — 
BDH, 1BH 


OH 
SBH, OF 2H 
> 

он 

осн 

орн 

5н 

» 1USER? 
4H 

> USER? 
INIT 

18H 

эр 

OBH 

он 

орн 
LCasNm-5H 
OH, OH, OH 
BufEnd-$ 


333 From here all data is cleared 
END 


Data buffer Updating part 


NEW DIRECTORY ОСА/1 


DB 
ORG 


AEIS 204279 Bvtes$ ПВ 


АЕ20 000000 
AE23 BESS 
АЕ25 2E2E 
8Е27 8609 
AE29 204649 


AEXS ВОІВ 


DB 
DB 
DB 
DB 
DB 
DE 
DR 
DB 
05 
DB 
Тв 
DS 


зе 
P 
за 
% 
ж 
- 
з 
ж 
за 
EI 
ж 
зе 
~ 
% 
ж 
з 
“ 
з 
9s 
“ 
D 
б 
+ 
+ 
5 
m 
+ 
б 
a 
з 
зе 
за 
за. 
ж 
ze 
ze 
а 
m 
ж 
ze 
ы 
“ 
E 
E 
зе 
ж 
= 
Б 


@ 
о 
= 
8 
б 
Е 
x 
Е 
© 
© 
Ф 
е 
@ 
е 
к 
Ч 
а 
< 


Titles DR 
MENUS 

Н 

3 

InpNm$ DB 
USERIS$ DB 
IniPtr 

H 

CasNm$ DB 
NmPtr 

H 

ORIG? 

H 

3 

End Nm$ 


РАБЕ 15 


ADFE 444952 
00 
18 
00 


AEOR 00 
AECO 000000 BgnNm$ DR 


AERS 000000 AanNn$ DE 
AERA 000000 Bytes 
AECS 


АЕВЕ 0000 


АЕСО 
AECO 


AEOC 204669 Files$ DB 
AECO 


АЕ89 000000 Plush 


AESD 


AESS 20204C 
ЛЕХА рів 
AESD ВВЕ? 
AESF 202083 
АЕ44 В795 
АБАБ 202055 


АЕ51 
RES4 4E4140 


АЕ75 00 
АЕ?7 322045 


AE7C 05 
AE7D 315555 


AEB2 04 
AEBS 555345 
АЕВ7 SSAA 


RE92 OD 


AF90 OR 
AE9* 


SPL V1.1 
ADF7 
ADF7 
ADFB ОС 
AE14 00 
AESC ЗА 
RES? 
АЕ52 
АЕ52 ОС 
DES? OD 
АЕ75 05 
GERD 05 
AESE 
AEBF 44 
АЕ91 
АЕ9? 
АЕ92 
бЕ92 
АЕ92 
AEBS 
AECO 
B34F 


АЕБ? 





PROGRAMMING THE DAI IN MACHINE AND ASSEMBLY LANGUAGES 
Part Z ¬ SOME HELP FROM DAI's ROM 


in Part 1 there was а little machine language programme to put three 
letters on the screen. The screen location was specified so as ta keep 
that first example programme short and simples we did not cocern 
ourselves with the whereabouts of the cursor. Now we will! 

Positioning the cursor during normal running is part of the DAI's 
housekeeping” duty. The section of memory (RAM) devoted to 
housekeeping’ is from address #6960 to #@2EB, plus a block from #28908 to 
SFFFF. Addresses #6072 and 46073 hold a pointer to the current location 
of the cursor: that is, the data held in ШӨӨ72-НӨӨ7Х is the screen RAM 
address of the cursor at any instant. By finding that address and 
loading it with a character, the character will appear on the screen at 
the cursor position. The instruction for loading an address, or data, 
held by а pointer is LHLD plus the address of the pointer. Here it would 
be LHLD 2072 (Hex code ZA 72 ве). LHLD means Load the НЬ registers 
Directly with the value stored at the address quoted. Thus with the 
cursor at character position 1 on the 6th line down, the screen address 
is #8549, and the operation of machine code 2А 72 66 would result in BD 
being loaded into register H and 49 into register L. There is no similar 
instruction for loading the other register-pairs with 2-byte values, via 
pointers. Here is a trial programme. The ORG (origin) 366 in the first 
line is not traniated into machine codes it is an assembler directive, 
indicating that the object code is to be loaded into memory at #500 
Onwards: 


Programme i. 


Label Source Object code Comments 
ORG #300 Programme starts at #500 
МОР да Ма operation 
мит а Ze ЗЕ 50 Load A with #50 (ASCII 207) 
LHLD 9072 2A 72 ва Load HL with the address that 
is stored at 0072-0073. 
MOV M,A 77 Move #30 from A to the screen 
location (address is in HL) 
WAIT JMP WAIT CE 07 өз Wait in an endiess loop. 


The last instruction, labelled WAIT, is just a jump to itself, similar 
to a BASIC line 16% GOTO 188. Pressing the BREAK key will give escape 
from the loop but it also switches the DAI out of Utility and back to 
the BASIC mode. If the above section of code is run in Utility with D'Zoe 
an 70% will appear on the screen at the cursor location but it will 
almost immediately be wiped out again by the cursor. To overcome that 
the cursor must be moved on to the next character position. That address 
can be obtained by decrementing the HL pair twice, stepping over the 
colour byte on to the next character position. That new address has to 
be stored in the cursor pointers #6072, #0073. The instruction SHLD 9872 
(Store HL Direct) will perform this task. It stores the byte held in 
register | at address #0872 and the byte in Н at address #0075. The Hex 
ор code for SHLD is 22. The revised example is: 


Programme 2. 


Label Source Object Code 
ORG #300 
МОР eo 
MVI A за ЗЕ 3e Character "Ө" into ñ 
LHLD 0072 га 72 ва Cursor address into HL 
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MOV PLA 77 Print "а" 

DCX H 2B Step HL pair over the colour 

DCX Н 2B byte to next character position 

SHLD 9972 22 72 ве Store this new address at 6072/73 
WAIT JMP WAIT CE ас өз Endless loop 


This moves the cursor on satisfactorily but only if it is not at the end 
of the lines in that situation the HL pair would have to be decremented 
14 times to step over Line Control Byte, Colour Control Byte and the 
unused character positions at the start and end of each screen line. 
There must also be some way of determining if the line end has been 
reached. А subroutine for cursor handling can therefore be quite long. 
Übviously there is already one in the DAI which is automatically called 
whenever anything is typed to the screen. There is also a routine which 
takes a character from register А and puts it on the screen, just as we 
have done in our machine code programming examples, and it calls in the 
cursor handling subroutine. It is in ROM starting at address #0069 and 
ending at #DD4F. As it is a subroutine we call it with the instruction 
CALL #DD6@ (CD 66 DD). When it has completed its job it reaches #DD6F 
where there is а RET (C9) instruction to return control to our 
programme. The next programme example uses that routine to put 19 digits 
on the screen, but as it also introduces another new instruction, a 
"conditional call? some comment on that must come first. 


Until now we have used straightforward jumps, calls or returns to branch 
to another part of our programmes: the JMP, CALL and RET instructions 
used were ‘unconditional’. There аге many occasions when branching 
depends upon some condition being mets for those occasions conditional 
jumps, conditional calls or conditional returns are used. There are 24 
of them listed in the 8089 Instruction Set. Here are the most commonly 
used ones in mnemonic form, with the hex op codes in brackets: 

Jumps Calls Returns Conditions for branching 


JZ (Са) EZ (СС) RZ (са) When the Zero flag is set 
JNZ (C2) CNZ (C4) RMZ (Са) When the Zero flag is Not set 
JC (ра) CC (DC) RC (D8) When the Carry flag is set 


(denoting register overflow 
caused by a carry or a borrow). 
JNC (D2) CNC (D4) RNC (069 When the Carry flag is Not set 
JM (FA) CM (FC) RM (ЕВ) When the Sign flag is set 
(denoting Minus) 


The flags referred to are in the Flag register. In effect each flag is a 
single bit registers if the bit is 1 the flag is said to be "set? and if 
the bit is Ө the flag is "not set’ (restored). In general, arithmetic 
and logical instructions set or restore flags in accordance with the 
results of their operations, whereas moving and loading instructions do 
not. 


Programme 3. 
Label Source Code Object Code Comment 





Explanation: The accumulator A is loaded with the ASCII code for digit а 
which is put on screen by PRINT. The value in А is then incremented to 
make 51, the hex ASCII code for digit 1. Register В is used to count 19 
digits printed. It is initially loaded with ЖА (10) and decremented 
after each print by the DCR В instruction. The JNZ (Jump when Not Zero) 
instruction checks the Zero flags if the flag is not set the programme 
loops back to PRINT and the next digit is printed. The loop-back is 
repeated until the DCR B finally reduces the count in register B to o 
and consequently sets the Zero flag. At that stage the condition for the 
jump is no longer met and the programme goes to the next instruction 
HLT. Both INR (Increment a Register) and DCR (Decrement a Register) 
instructions set the Sign and Zero flags, if appropriate, but do not 
affect the Carry flag. Where one flag-setting instruction follows 
another as in this programme, the second overwrites any flags set by the 
first. Thus the conditional instruction is only checking flags which 
result from the DCR B operation, not from the INR А. 


With the programme entered into RAM starting at H3eo the Utility Display 
command D343 Zort should produce the following: 


зое oo об GA ЗЕ ХӨ CD 60 DD 3C 95 C2 95 ӨЗ 76 00 ӨӨ 


Initialize with 25 and run it with 6509. The HLT instruction stops the 
microprocessor when 19 digits have been printed: use the RESET button to 
start the micro again. 


There is another way of checking when the last digit is reached without 
using a register as a counter. The value in register A can be ‘compared’ 
to see if it has reached 3A, that is, beyond 59 the hex ASCII code for 
9. A suitable instruction is CPI (Compare Immediate data) which compares 
the immediate data with the contents of the accumulator and sets the 
flags as if the immediate data had been subtracted from the accumulator. 
CPI does not change the value in the accumulator as would an actual 
subtraction (SUI). Here is the changed programme: 


Programme 4. 


ORG #300 
NOP га 
MVI À за ЗЕ Зө 
PRINT CALL #0069 CD 6@ DD 
INR А 3c 
CPI 3A FE ЗА Is data in A=#3A ? 
JNZ PRINT C2 өз өз If А<>ЗА print next digit. 
HLT 76 Stop when А=ЗА 


The setting of the Zero flag determines whether the programme loops back 
or continues. But CPI sets the Carry flag too so our JNZ PRINT could be 
replaced by JC (Jump if Carry) PRINT {DA 95 Өз) with no obvious change 
in results. Remember that as far as the flags are concerned, CPI ЗА 
subtracts ЖЗА from the value in register А. Therefore if А contains less 
than ЖЗА there will be a ’borrow and a borrow sets the Carry flag. 
There will obviously be no borrow and hence no Carry if А equals or is 
greater than #38. JNZ would jump if the value іп À is either less or 
greater than #34. 


The DD66 routine can also be used in a machine code programme to clear 
the screen by calling it to print #60 thus:— 

MVI ñ ec ЗЕ ӨС This is the same as the BASIC 

CALL #00658 CD 68 DD command PRINT СНЕФ {12} 








ORG #300 Start at #590 
МОР фә 
MVI В да да да Counter. Load В with 19 (#4) 
MUI A за ЗЕ за Load а with ASCII 9 

PRINT CALL ярраө CD 66 DD Call ‘Output-a-character’ routine 
ТМА А 5С fe1-ASCII code of next digit. 
DCR в es Subtract 1 from counter 
JNZ PRINT Са өз oz If counter<36 print next digit 
HLT 76 If counter is 9 then stop. 
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It is now time to introduce а couple more ROM routines. The one already 
used (0059) to print a character from the À register is usually known Бу 
the assembler label OUTC (Output а Character). Most of the often used 
ones have easy to remember labels which can be found in "The DAI pc 
Firmwafe Manual" if you have one. Without that manual it would be 
worthwhile building up your own list or annotating Colin Hards^ ROM 
Index which appeared in DAInamic 18. Many ROM calls can be found in 
assembly language programmes published in DAInamic. A useful routine is 
GETC (Get a Character from the keyboard) which is at #D6BE. It checks 
for input and returns with either: 

(a) the ASCII value of the key pressed in register À, or 

(b) the Carry flag set if the BREAK key is pressed, or 

(с) the Zero flag set if no key has been pressed. 
The routine does not wait for a key to be pressed: the programme must do 
that by recalling D6BE until the Zero flag changes from the set to unset 
condition, eg:- 
Programme S. 


ORG #300 
NOP 

KEYED CALL #D46BE CD ВЕ 06 Get character from keyboard 
RC рв Return when BREAK key pressed 
JZ KEYBD CA oi өз Loop back if no key pressed, else 
CALL #DD6&@ ср 6% DD print character in reg À on screen 
JMP KEYED С5 61 өз бо back for next character 


The programme monitors the keyboard and displays characters typed on the 
screen. The only exit from the programme is by means of the BREAK key 
which sets the Carry flag, allowing the instruction RC (return on carry) 
to be effected. Return will be to the main programme from whence this 
was called. In this example return is to the Utility mode because the 
programme is called with the Utility 6399 command. Instead of НС we 
could use JC xxxx, so that control of the programme is directed to a 
more obvious address: for example, JC END would be a conditional jump to 


Exclusive-OR instructions are similar and flag their results with Sign 
and Zero flags. Their mnemonics are XRI data, ХНА register and RS 
Метогу. ХНА A is frequently used: it “exclusive ORs" the value in 
register A with itself, thus zeroing the register. Some assemblers use 
an alternative mnemonic ZAR (Zero A Register) instead of XRA А but the 
hex op code for both is АҒ. 


The next programme demonstrates how the three KOM routines can be used 
to put a programme menu on the screen and determine which option the 
user chooses. Note that the menu message includes the ASCII characters 
ЖаС and #90 to clear the screen and to move the cursor down a line. 


Mow is the time to load your assembler so that you can write this 
programme in assembly language. If you are using the DNA assembler give 
the Buffer Dimension as 5 (for SkKbyte): if using SPL answer the Start 
query with 4968. The following programme is written with the SPL 
assembler. The object code is placed by the ORG instruction at #6000 
onwards, an area of memory that is clear of both DNA and SPL assemblers. 
The source instructions TITL, EQU fEquates), DB {data byte) and END are 
all assembler directives. The semicolon is the same as a BASIC REM. The 
addresses of the НОМ routines being used are given to the assembler by 
the EQU commands. 


Users of DNA will n < i i i 
de csi eed to make the following changes when typing-in the 

(a) Use an asterisk instead of the semicolon in the Label column. 

(b) Omit semicolons at start of Comments column. 

fc) Insert a colon before Hex addresses and values. 

(d>) Omit the Н after Hex addresses and values. 

(e) Keplace DE + data by DATA + data. 

ӨӨ Replace DE + string in quotes by ASC + string in quotes. 


Programme 6. 








a routine labelled END that displays an "End of programme" message. Object Source code 
code Label Instrn Oper and Comment 

There is a ROM routine which will print a message. It is called PMSG and Addr 
can be found at address #DAD4. The message has to be already stored, in овде TITLE TITL "FILE WRITER/WORD PROCESSOR? 
ASCII code, at а known address. That address is loaded into the HL өөөө 3 
register pair before calling PMSG. The routine runs through the message ообо sDeclaration of DAI ROM routines: 
a byte at a time, calling the QUTC routine to print each Character it өвөө е=ррео OUTC EQU оррван sOutput a character 
finds. The last byte of the message must be ӨӨ (not ASCII 9); when PMSG 8000 верьве GETE EQU eD6BEH ;беф character from keyboard 
finds that, it stops printing and returns control to the main programme. подо B=DAD4 PMSG EGU ораран sPrint a message 
You can see the routine with the Utility Display facility by typing вого 5 
DDAD4 DAES. Try dis-assembling the machine code displayed (converting 2609 ORG овен iProgramme starts at #6000 
the hex bytes back into assembly code). One can learn quite a lot about 6000 212660 MENU LXI Н MENUS s3Load HL with address of menu 
machine language programming by seeing how the experts wrote the 6003 сррара CALL PMSG š Display menu on screen. 
routines hidden away in the DAI*s ROM! You will find one instruction in обо CDBED6 KEYED! CALL GETC Веб кеу pressed 
the displayed routine that we have not dealt with yet: it is B7 at воду DAo060 JC MENU Sit ВНЕАК key pressed 
address DAD7. Hex code B7 is ORA A which is a Logical operation to "OR" SGOT CAÓe6o6e JZ КЕУВРІ :Мо key pressed, so loop back 
the value in register A with itself. That looks futile because anything ӨӨӨР БЕЗІ CPI 4» іКеу 1 pressed 7 
ORed with itself does not change. However OR operations do flag their 6011 CAES60 JZ LOAD1 iYes,go to Load routine 
results with Sign and Zero (but not Carry) and that is why this 6014 ЕЕЗ2 CPI тот 32 pressed 7 
particular instruction is there. ORA А will set the Zero flag опіу if А 5916 Саввео 42 SAVE iYes,go to Save routine 
is empty (contains ӨО). That is how the routine looks for the 99 8919 FESS CPI 37 sZ pressed > 
denoting the end of the message. 6@1B ChE760 JZ EDIT1 зУев,до to Edit routine 
All the various ОН instructions operate on the accumulator, and leave 6@1E з etc, etc..... 
the result there. They are: 661E FESS CPI тїр IL pressed 7 

ORI data OR the Immediate data with 4 6978 CA74EA JZ әБАтан Then switch to Utility 

ОКА register OR the quoted register with А 6975 Слевео JMP KEYBD1 sIf any other key pressed 

ока M OR the Memory (addressed by НЕ) with A 6826 5 
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өсөрөр MENUS ЭВ BCH, SDH, GDH ФНС clears screen, 





3 #D is Carriage Return 
төвөө рв й MEN U 
6D6D DE @DH, GDH 
202045 DB 5 Key 1 та LOAD A FILE FROM CASSETTE 
өр DR орн 
267648 DE 5 Key Z TO RECORD CURRENT FILE ON 
CASSETTE" 
4494 ер DE ерн k 
6895 202088 DB ° Key З то DISPLAY OR EDIT THE FILE? 
ьова Өрөр DE ADH, SDH 
OBC 206574 DB >. Bic. 
6eCS Өрөр DE @DH, @DH 
LACE 707648 DE 5 KEY U TO SWITCH TO UTILITY’ 
SGES өрөө DE @DH, ен Note last byte=00 
БӨЕЗ š 


The following lines are temporary. Until the various subroutines have 
been written, jumps to the LOAD, SAVE and EDIT labeis will find NOF 
instructions: control will step over them to the LXI H instruction that 
displays the "Моб Available’ message. 

GOES Н 


GOES oo барі NOP 

GOES ӨӨ BAVEL МӨР 

GOET ӨӨ EDITI МР . 

GOES 212968 LXI H МАуМва sLoad HL with addr of message, 
GER CDDADA CALL PMSG Print message 

S@EE CDBEDS KEYBD2 CALL GETC sGet character from keyboard 
Gori РЕЗО CPI — sis it a space ? 

60F3 С2ЕЕБ@ JNZ КЕУВРО $ No, loop back to look again 
60Fó6 слева JMP MENU $ Yes, go back to menu 

59-9 есерер NAvMsg DB асн, ADH, @DH 

&@FÜ 205072 DB 7 Programme not available." 

6115 205072 DE * Press space-bar to return to menu..." 
613 eo DB ен 500 signifies end of message 
6138 3 

S138 END END 


You may notice that the object code resulting from DB with string 
messages looks rather odd. That is because the assembler only lists the 
first three data items although all data in the DB statement will be 
assembled into memory, as you can see by checking the instruction 
addresses; eg: the difference between 6@FC and S115 is the same as the 
number of characters (including spaces) of the message ^ Programme not 
available.” 


When vour source programme is in the assembler check it for errors with 
the assemblers error check command, ? with SPL or ФЕ. with DNA. That 
should find any syntax errors but it will not find things like wrong 
addresses which so often result in a self-destruct routine. Therefore 
save your source code on cassette before assembling it. We will extended 
it in subsequent articles in this series. When assembled the programme 
can be run in Utility by 25 (Return) 686909 (Return). The machine code 
programme can be saved as a type 1 file with the Utility Write command. 
It is customary when saving type 1 files to add the address of the 
programme after the file name as a personal reminder of its location in 
memory. eg: Wéoo0 615А ..FILE WRITER (#6000-#613A) 
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De vorige keer heb ik de mogelijkheid beschreven om 
zelf een analoge monitor op de DAI aan te sluiten. 
Deze maal zullen we bekijken hoe dit mogelijk is met 
een digitale monitor. 

Een digitale monitor heeft normaal vier ingangssig- 
nalen voor kleur generatie n.l. Rood,Groen,Blauw en 
een Intensity signaal. Met dit laatste kan men de іп- 
tensiteit van een kleur beinvloeden. Dit signaal kun- 
nen we voor de DAI niet gebruiken. 

We hebben zijn dus beperkt tot maar В kleuren, zwart 
meegerekend. 

Buiten deze voor de kleuren noodzakelijke signalen heb- 
ben we nog een horizontaal en een vertikaal synchroni- 
satie signaal nodig. Deze kunnen positive of negatief 
zijn. In verschillende typen monitors is dit dem. ve 
een schakelaar in te stellen. 

De aansluiting aan de monitor is meestal een 9 polige 
Canon connector waarvan helaas de aansluitingen niet 
altijd hetzelfde zijn. 

De aansluitingen ор het schema zijn die van een door 
ons gebruikte monitor. 

Omdat pin 9 hierin niet werd gebruikt hebben we deze 
genomen om het audio signaal naar de monitor te brengen. 


Beschrijving schema. 


Als we het schema vergelijken met die van de analoge 
kaart dan valt ans op dat we gebruik maken van dezelfde 
Prom waarvan de inhoud gelijk gebleven is. De signalen 
hiervan gaan naar een 7415574. 

Inplaats van alle uitgangen te gebruiken nemen we ег 

nu maar drie. 

Pin 6 voor het "В" (road) signaal,pin 15 voor het "G" 
(groen) signaal en pin 19 voor het "B"(blauw) signaal. 
Een extra buffer is niet noodzakelijk daar de ingang 
van de monitor TTL niveau is. 

De beide synchronisatie signalen worden verkregen door 
ze twee keer te inverteren en naar de monitor te sturen. 
Moet het een inverted sync. zijn dan direkt па de eer- 
ste inverter afnemen. 

De twee overgebleven inverters gebruiken we voor de 
Clock pulse naar de 7415574. 


De signalen zijn allen terug te vinden op de connector 
van het main board naar de video print. 


Pin 2 - Gnd. Pin 10 = K2 

Pin 3 = -5V Pin 11 = Clk. 
Pin 5 = Audio Pin 12 = 45V 
Pin 7 = KO Pin 13 = V sync. 
Pin 8 = K3 Pin 15 = VLB 
Pin 9? = Ki Pin 20 = Н sync. 


Geleen, febr. 1986 
H.Rison 
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USES FOR елата 
MONITOR CONNECTOR. 





SPiN CONNECTOR. 
FRONT view. 


CTED. 


H. SYNC. 
AUDIO 
NORMALLY 
MAT CONNE. 


OV. «Ме. 
GND. 


3 


чом 


еее —-O W.W. SYNC. 
R.G.B. DIGITAL Cara 


иг —-—-.-OW.x.SXNC. 








"Ousmts b, la 


мах VIREO 
CONNECTOR. 













XX хх DDDDDDDD 








хх XX DDDDDDDDD 

XX ХХ DD DD c 00 
XXXX DD 00 
ХХ DD DD 00 00 888898 
XXXX DD DD 00 оо 88 

ХХ XX DD DD 00 оо 88 88 

XX XX DDDDDDDDD 00000000 58588888 

ХХ хх  DDDDDDDD 000000 885888 
LEGE XDOS а disk operating for KENDOS кеннен 





When 1 bought my KENDOS drives, the only advantage was the 
increased speed of loading and saving. The operating system 
Was very minimal and had severe points which lead to a 
decreased compatibility with existing hardware and software, 








The KENDOS operating system changed System adresses, арор tect 






programs (1 came to like LOADING Е ROR , these could be 
trapped), The spaghetti like syntax with Ж, Ауа, Га MA OURS and 


drivenumbers which could be placed anywhere, Drive 1 2 and 3 
were stepchildren and working from these drives was possi 
ble but every KENDOS instruction bad to be changed. The 
choice of filetypes became very limited and confusing. 
Assembler programs written аз "088" could not be chan 
back to 'SRC' unless you knew the BIOS routines. Before 
calling BIOS routin tables and pointers had to be set up, 
Programs were read and written in опе block which lead to 
problems with programs with two long blocks, A hardcopy об 
the directory was a complete mess. The 1,5k memory used by 
KENDOS is better than DAIdos but problems often occured when 
overwriting this buffer. Disk,  audiocassette and MDCR could 
not be used the same time with "а commands. The 
other advant в Of a disk operating system namely random 
and sequential access were not so random respectively uhhh^?,. 





























% 


In XDOS these disadvantages have been corrected/overcome, 
The speed of the system has not been decreased due to the 
fact that the diskformat has not been changed, 





The main goals for the development of XDOS have been: 
7 Uu&er-friendlines 
-7 increased software compatibility 
т easy interfacing diskroutines 

~ true random and sequential acce 


в 












из possibilities, 
DIFFERENCES BETWEEN KENDOS УЗ.Х м XDOS Vi, OR 
A list of the most important changes and enhancements. 


1 XDOS has its own 8 KByte RAMspace 





~ 1.5 К extra user RAM (no DAI ВАМ used) 
= increased compatiblity (no relocation of programs) 





= по more p eme with pictum 
= no buffer adjustment 
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D new commandinterpreter/pre sor witha 
Syntax with abbrevi а ans 

1 and decimal numbers 

and indirect addre nag 

™ upper and Lowercase command 
"easy errortrapping 
















МОСК and AUDIO store 
Switching (DOR/CAS) i 
7 enhanced МОРСКЕ commands 
7 copying of files requires no special program 








в needed 








d filenames 

instead of 14 characters 

= legal characters 

7 provisions for grouping of filenames wildcard 
characters 








all filetypes remain urichanged 
7 the standard filetypes are used (0 1 2 etc.) 
7 filetypes may be defined by the user 


default filemode 

~ filemodes sels 
memory 

7 Once a filemode has been selected it stays selected 
and if mat explicitly overruled all commands act оп 
this filemode, 





t the type and number of background 


generic Commande 

7 because grouping files is possible by means of filemode 
filename and filetype commande work on selected groups 
of files instead of one or all file 

~ conversational commands for extra security and ease, 








XDOS fully supports the DAL two blo 
7 blocks are loaded and saved 
7 each block may be 64kbyte. 





structure 
separately 


ЖЕБЕ fully supports DAL loading saving protocol 
= LOADing direct displays the filename 

~ SAVE ing direct aske for confirmation 

7 Standard errorhandling in any program 

т suppression of errors during LOADing and SAVE img 
18 possible 

7 return to caller is always possible. 

~ extended saving protocol. The Zeroflag is set 
an succesful completion of МОРЕМ, WBLOCK & WCLOSE. 

~ extended Loading protocol, The Carryflag is now also 
set on succesful completion of КӨРЕМ . 








XDOS supports true RANDOM files 

з Fandomfiles may be as big 5 the space on a diskette 
~ recordlength may be from i t 1024 bytes, 

7 each random file may have 6535 records, 











XDOS supports sequential files 

“ Sequential files may be as big as the Space on a 
diskette, 

7 all characters are legal no file markers 
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14 


15 


16 


18 


INPUT/OUTPUT redirection, 
~ easy handling of input from keyboard, files and memory, 
- easy handling of output to screen, files and memory. 


programmable functionkeys 

~ keys or ASCII values from the input source can be 
redefined to give a string of ASCII ch which 
may Gf course be Commande, 





diskettes can be read and written manually 
- blocks of 1 byte to 64Kbyte can be read and written 
manually anywhere on disk 


вва calls 
all information is documented 
~ all data is passed in the registers 
7 all commands return to caller 
with carry set on succesfull completion 


if unsuccesfull the A register contains the returncode 





extensive status display 
~ display of system flags, date, PFkeys, commande, 
diskette-status, memory allocation and opened files 





jobs 
~ Ascii command files to configure/set up program 
environment etc. 


XBASIC 

~ the most important XDOS commande and random and 
sequential access are available in runtimecode, 
all programs are upward compatible with DAI BASIC. 

7 all XDOScommands can be issued from ХВАВТС, 

~ commands for reading writing sequential files 

- BASIC programs can be saved and loaded as ASCII files 

7 commands for random records with numeric and 
alphanumeric fields, string formatting commands 

- XRASIC control structures support structured 
programming. 

WHILE,UNTIL,FOREVER, repetitive and selective control 
stuctures. 

з modulair programming with subprograms to be called ав 
procedures with VALUE and ADDRESS parameters and LOCAL 
variables. 

~ programs are automatically precompiled for speed and 
structural errors а! immediately detected. 

~ XBASIC supports a structured listing with indentation 
for control structures (also in EDI Tmode). 









XDOS/XBASIC comes as a package includings 


1. 


XDOS operating system (24 Kbyte) in 2 27128 eproms, 
The system adds over 50 ХРОВ commands, 

XBASIC language (В Kbyte) with over 40 new Commande, 

A modification must be made to set 2 sockets for 27128 
eproms (one scratch and two jumpers). 





2. 8 kbyte static RAM used for buffering. A modification 
must be made to enable writing into the RAM (а scratch 
and a wire). 
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and conversion utility for old 









ionally in І Lëck 
) 77 extra) 








eprom fit for the third вос (DEL 












і 

4 H 

" | . | 22 GR : Н 

The price for the complete package is 041 150,-- and can be E 
ordered fron 








N.F. Lootie 
Faludanusho+f 
S45) CM Hoek 
Neder land. 





уап Holland 





The price is to be paid im advance by means of an 
international postal money order, Please indicate 'XDOS' оп 
your order тет в can transfer this amount on bank 
account — 32.52.77,314 of М.Р.  Looije. Allow 28 days Жоғ 
delivery, 









10 GOTO 100 

i REM Wallpaper N.P.LOOIJE 4/84 
20 MAXSRND (10) 

і FOR Ажо TO MAX 

ї АСА) si ND (286) 


1 NEXT 
о FOR As#BFFF TO HE 





30) STEP -МАХ--1 


40 › TO MAX 
1 A-R, A (B) 
Бо GETE >O THEN 70 


1 NEXT 
өй IF ӨЕТОеО THEN 60 
70 MODE © 

1 PRINT CHR C42) 

š CURSOR 0,0 

Н GOTO 20 
1 
1 
1 
1 





00 MODE О 
PRINT CHR® C12) 


SUPERFONT .. 
PRINT ава рана невин“ SUPERFONT .. SOURCE ОР IMAGINATION! 


PRINT TAB) p E e—————————— mem e m am e H 


120. PRINT тав(10) | /machinelanguage-progeanner to create! OUPERFONT .. SOURCE ПЕ IMAGINATION! 


150 PRINT TAR(10) "wallpaper patterns by inventing а" 


170 PRINT TAB(10)} "Use the keyboard to start and restart" С SUPERFONT .. SOURCE OF IMAGINATION! 
SOURCE OF IMAGINATION: 





x 
оо 






180 DIM АС 


Н GOTO 60 | SUPERFONT 


SUPERFONT .. SOURCE OF THACTNATION 








2 





SOURCE OF IMAGINATION- 
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